use WWW::Mechanize;

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