use IO::Socket::Socks::Wrapper (
		Net::HTTPS => {
			ProxyAddr => 'localhost',
			ProxyPort => 1080,
			SocksDebug => 1,
			SocksVersion => 5
		}
);
use Net::HTTPS;

my $s = Net::HTTPS->new(Host => "encrypted.google.com") || die $@;

$s->write_request(GET => "/", 'User-Agent' => "Mozilla/5.0");
my($code, $mess, %h) = $s->read_response_headers;

while(1) {
	my $buf;
	my $n = $s->read_entity_body($buf, 1024);
	die "read failed: $!" unless defined $n;
	last unless $n;
	print $buf;
}