xDxD+2008-12-08 11:00:21--

Code (perl): (dl )

1
2
3
4
5
6

eval "use IO::Socket::SSL";
                $SH = IO::Socket::SSL->new(
                        PeerAddr => $server,
                        PeerPort => $port,
                        Proto    => 'tcp',
                );

1
2
3
4
5
6
7
8
9

eval {
  use IO::Socket::SSL;
  $SH = IO::Socket::SSL->new(
			PeerAddr => $server,
			PeerPort => $port,
			Proto    => 'tcp',
  );
};
warn "Error: IO::Socket:SSL ($@)" if $@;