1.   #!/usr/bin/perl  
2.   use LWP::UserAgent;
3.   use HTTP::Request::Common;
4.   use Crypt::SSLeay;    
5. 
6.   $url = "https://encrypted.google.com/";
8.   my $ua = new LWP::UserAgent; 
9.  
10.  $ENV{HTTPS_PROXY}          = 'http://westproxy:8080'; 
11.  $ENV{HTTPS_PROXY_USERNAME} = "UserName";
12.  $ENV{HTTPS_PROXY_PASSWORD} = "PWD";
13.  #$ENV{HTTPS_CA_FILE}        =  ??? 
14.  
15.  #$ua->proxy(https => 'http://westproxy:8080');
16.  my $req = new HTTP::Request('GET'=>$url);
17.  my $res = $ua->request($req);   
18.
19.  if ($res->is_success){
20.      print "Content: \n", $res->content, "\n";
21.  }