The first test it failed is this:
#!/usr/bin/perl
use lib qw(../lib ./lib);
use Net::SSL;
my $sock;
eval {
$sock = Net::SSL->new(
PeerAddr => '127.0.0.1',
PeerPort => 40000,
Timeout => 3,
);
};
print "1..1\n";
print $@;
if($@ && ($@ !~ /Connect failed/i)) {
print...