use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
   $ua->agent("Faux Browser/1.0");
my $req = HTTP::Request->new(GET=>$url);
   $req->content_type('application/x-www-form-urlencoded');
   $req->content('query=libwww-perl&mode=dist');
my $res = $ua->request($req);
if ($res->is_success) {
   # do stuff
} else {
   # error out
}