use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
$mech->get ('http://google.com');
my $content = $mech->content;
print $content;