use WWW::Mechanize;

$mech = WWW::Mechnize->new;
$mech->get('http://google.com');

print $mech->content;