#!/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";