if(!($sock = IO::Socket::SSL->new( PeerAddr => 'localhost',
    PeerPort => '444',
    Proto    => 'tcp',
    SSL_version => 'TLSv1'))) {
  exit(0);
}
##</code><code>##

$ENV{HTTPS_VERSION} = 3;
$ENV{HTTPS_DEBUG}   = 1;

# Variables for the URL retrieving
my $ua  = new LWP::UserAgent;
$ua->cookie_jar($cookie_jar);
my $res;

my $post = POST $url, \%form;
$post->authorization_basic('_api_', $key);
print $post->content . "\n";
$res = $ua->request( $post );

##</code><code>##

Connection #194 [Wed Nov  9 11:31:43 2011]
Connected to localhost:443
--> [
recordLen = 108 bytes
(108 bytes of 108)
 [Wed Nov  9 11:31:43 2011] [ssl2]  ClientHelloV2 {
           version = {0x03, 0x01}
           cipher-specs-length = 81 (0x51)
           sid-length = 0 (0x00)
...

]
<-- [
(7 bytes of 2)
SSLRecord { [Wed Nov  9 11:31:43 2011]
   type    = 21 (alert)
   version = { 3,1 }
   length  = 2 (0x2)
   fatal: handshake_failure
}
]