use Net::SSL (); # From Crypt-SSLeay
use LWP::UserAgent;
$Net::HTTPS::SSL_SOCKET_CLASS = "Net::SSL"; # Force use of Net::SSL
$ENV{HTTPS_PROXY} = 'http://98.142.214.160:443';
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
my $ua = LWP::UserAgent->new();
my $req = HTTP::Request->new('GET','https://twitter.com');
my $res = $ua->request($req);
print $res->status_line;
|