> openssl s_client -servername host_atlas -connect host_atlas:1024

CONNECTED(00000006)

##</code><code>##

 
#!/usr/bin/env perl
use strict;
use IO::Socket::SSL;

my $cl = IO::Socket::SSL->new('host_atlas:1024') 
   or die "error=$!, ssl_error=$SSL_ERROR";