use WWW::Mechanize;
my $mech = WWW::Mechanize->new( autocheck => 1 );

$mech->get($url);

if ( $mech->success() ) {
    print $mech->content,"\n";
}
else {
    print "status is: " . $mech->status,"\n";
}