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