use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get('http://www.perlmonks.org/');
print $mech->content();