Select Code to Download

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

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

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

Connection #194 [Wed Nov  9 11:31:43 2011]
Connected to localhost:443
--> [
...
   fatal: handshake_failure
}
]