my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/5.0');
#$ua->agent('Checkbot/0.4 ');
#$ua->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1');
#$ua->agent('FireFox 2');
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
if ($res->is_success) {
    print $res->content;  # or whatever
}
else {
    die $res->status_line;
}