#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
use LWP::UserAgent;
use Crypt::SSLeay;
use Net::SSL (); # From Crypt-SSLeay
$Net::HTTPS::SSL_SOCKET_CLASS = "Net::SSL"; # Force use of Net::SSL (?)
my $proxyinfo='http://bday:adsfa3@144.92.221.19';

$ENV{HTTPS_VERSION} = '2';
$ENV{HTTP_PROXY} =  $proxyinfo;
$ENV{HTTPS_PROXY} =  $proxyinfo;
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
$ENV{PERL_LWP_ENV_PROXY} =  $proxyinfo;

my $ua;
my $url = 'https://mail.google.com';

print "--------------------------- Test #1: $url ---------------------------\n";
$ua = LWP::UserAgent->new(show_progress=>1);
$ua->cookie_jar( {} );
$ua->protocols_allowed( [ 'http','https'] );
$ua->env_proxy;
# $ua->proxy(['https'], $proxyinfo);
my $req = HTTP::Request->new('GET',$url);
print Dumper($req);
my $res = $ua->request($req);
print $res->status_line;
print $res->as_string;

#$url = 'https://www.helsinki.fi/';
$url = 'http://mail.google.com/';
print "--------------------------- Test #2: $url ---------------------------\n";
#my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 1 });
#$ua->protocols_allowed( [ 'http', 'https'] ); #bd added - may be unnecessary
$res = $ua->get( $url );
$res->is_success or
    die "Failed to GET '$url': ", $res->status_line;
print $res->as_string;

print "--------------------------- SSL in \%INC ---------------------------\n";
print "$_\n" for grep { $_ =~ /SSL/ } keys %INC;