use strict;
$ENV{HTTPS_PROXY} = 'my_proxy:8080';

use HTML::Parser;
use WWW::Mechanize;
use Crypt::SSLeay;
use LWP::Debug qw(+);

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

$mech->agent('Mozilla/5.0');
$mech->proxy(['https', 'http', 'ftp'], 'my_proxy:8080');

# http
$mech->get("http://www.google.com");

# https
#$mech->get("https://www.cia.gov");
my $c = $mech->content;

print $c;