Yeah great!!!

my $ua = LWP::UserAgent->new;
$ua->agent(“Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9b5) Gecko/2008043010 Fedora/3.0-0.60.beta5.fc9 Firefox/3.0b5”);
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
if($res->is_success) {
} else {
}

“I hate wwwlib-perl.”

And Firefox? 😀