my $mech = WWW::Mechanize->new( noproxy => 1 );