Select Code to Download

#!/usr/bin/env perl 
use strict;
...
    print "SSL connection with $proto " .
        ($ssl ? 'set up' : 'failed') . "\n";
}

IO::Socket::SSL version 2.012
SSL connection with SSLv3 failed
SSL connection with TLSv1_2 set up