$mech->get('http://www.perlmonks.com/');
print $mech->content;

##</code><code>##

my $http_response_object = $mech->get('http://www.perlmonks.com/');
print $http_response_object->content;

##</code><code>##

$ perl -e 'use WWW::Mechanize; my $mech = WWW::Mechanize->new; my $hro = $mech->get(q{http://www.perlmonks.com/}); print $hro->content' | less