SSL connect attempt failed error:14077102:SSL routines:SSL23_GET_SERVER_HELLO:unsupported protocol
##</code><code>##

openssl s_client -connect IP:PORT
##</code><code>##

openssl s_client -connect IP:PORT  -ssl3
##</code><code>##

 
#!/usr/bin/perl
use IO::Socket::SSL qw(debug3);

my $client = IO::Socket::SSL->new(
        PeerAddr => 'IP',
        PeerPort => 'PORT'	
        SSL_verify_mode => 0x00
);
        ##SSL_version => 'SSLv3'

if(defined $client){ 
        
        print <$client>;
        close $client;
}else{
        warn "I encountered a problem: ",IO::Socket::SSL::errstr();
}
exit;