There is a brand new version of Net::SSLeay that could help.

If you are used to doing command line telneting to servers to probe around, you could always use stunnel (takes whatever you type and turns it into a secure client connection -- it is also very useful for turning an insecure server into a SSL server).

my @a=qw(random brilliant braindead); print $a[rand(@a)];