Select Code to Download

$mech->proxy(['http'],  'http://127.0.0.1:8118');
$mech->proxy(['https'],  undef);

#!/usr/bin/env perl
use WWW::Mechanize;
...

$mech->get($url);
print $mech->content;

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