my $ua = LWP::UserAgent->new();
$ua->agent("$0/1.0".$ua->agent);
$ua->timeout(1);
my $req = HTTP::Request->new(GET => "$url");
$req->protocol('HTTP/1.0');
my $result = $ua->request($req);