$ENV{'HTTPS_PROXY'} = 'http://127.0.0.1:8118';
my $mech = WWW::Mechanize->new(
  autocheck=>1,
  noproxy=>0
);
$mech->env_proxy;