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