use WWW::Mechanize;

my $mech = WWW::Mechanize->new( onerror => 'hallo' );
my $uri = 'http://www.heise.de';
$mech->get( $uri );
say $mech->content;
say "WWWWWW";