$mech->proxy(['http'], 'http://127.0.0.1:8118');
$mech->proxy(['https'], undef);
####
#!/usr/bin/env perl
use WWW::Mechanize;
my @https_proxy = (
'http://127.0.0.1:8118'
);
my $url = shift;
#print "LWP::Protocol::https::VERSION: ($LWP::Protocol::https::VERSION)\n";
$ENV{'https_proxy'} = $https_proxy[0];
my $mech = WWW::Mechanize->new(autocheck=>1);
$mech->proxy(['http'], $https_proxy[0]);
#$mech->proxy(['https'], undef);
#$mech->env_proxy;
$mech->get($url);
print $mech->content;
##
##
$ENV{'HTTPS_PROXY'} = 'http://127.0.0.1:8118';
my $mech = WWW::Mechanize->new(
autocheck=>1,
noproxy=>0
);
$mech->env_proxy;