$ENV{HTTPS_DEBUG} = 1;
$ENV{HTTPS_VERSION} = 3;
$ENV{HTTPS_PKCS12_FILE}     = 'cert.p12';
$ENV{HTTPS_PKCS12_PASSWORD} = 'mypass';

use Net::SSLeay;
use LWP::Debug qw/+/;
use HTTP::Proxy;

# Monkeypatch HTTP::Proxy to handle CONNECT as I want to.
# take a look at http://cpansearch.perl.org/src/BOBTFISH/HTTP-Proxy-Selective-0.004/script/selective_proxy
# Paste sub _handle_CONNECT here together with override.

my $proxy = HTTP::Proxy->new( port => 3128 );
$proxy->start;