#!/usr/bin/perl

use strict;
use warnings;
require LWP::UserAgent;

my $ua = LWP::UserAgent->new; 
#my $out = "/home/camdpams_www/cav/tvl/deletedvendors.txt";
my $out = "/home/camdpams_www/signer/include/data/cav/tvl/deletedvendors.txt";
$ua->timeout(10);
$ua->env_proxy;
my $response = $ua->get("http://download.comodo.com/av/tvl/deletedvendors.txt",
			'Accept-Charset' => 'utf8');

if ($response->is_success) {
    open(OF,">",$out);
    print OF $response->decoded_content;
    close(OF);
}
else{
    die $response->status_line; 
}