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