if ( $me->{USESSL} ) { if ( $me->Port() == 110 ) { $me->Port( 995 ); } eval { require IO::Socket::SSL; }; $s = IO::Socket::SSL->new( PeerAddr => $me->Host(), PeerPort => $me->Port(), Proto => "tcp", Type => SOCK_STREAM, LocalAddr => $me->LocalAddr(), Timeout => $me->{TIMEOUT} ) or $me->Message( "could not connect SSL socket [$me->{HOST}, $me->{PORT}]: $!" ) and return 0; $me->{SOCKET} = $s;