my $ssl_sock = new IO::Socket::SSL(
    PeerAddr => $host,
    PeerPort=> 23,
    Proto => 'tcp',
    Reuse => 1,
    SSL_verify_mode => 0,
    SSL_verifycn_scheme => undef) || warn "Problem establishing SSL socket: " . IO::Socket::SSL::errstr() . "\n";