$PROXY_IP = "proxy.mydomain.com:8080";

$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'https'], "http://$PROXY_IP/");
$URL = "https://www.somedomain.com/index.htm";
$request = HTTP::Request->new('GET', "$URL");
$response = $ua->request($request);


##</code><code>##

"Unsupported Request Method and Protocol"


##</code><code>##

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;