use strict;
use WWW::Mechanize;

my $mech=WWW::Mechanize->new();
$mech->get('http://www.perlmonks.com');
$mech->success() || die "$mech->status()";
print $mech->content();