#!/usr/bin/perl
use strict;
use IO::Socket::SSL; # qw(debug3);

# simple client
my $cl = IO::Socket::SSL->new(
		PeerAddr 	=> 'example.com:https',
		) or die $!;
    print $cl "GET / HTTPS/1.0\r\n\r\n";
    print <$cl>;