use IO::Socket::SSL;

my $client = IO::Socket::SSL->new(PeerAddr => 'destination.server.com', PeerPort => 12345, Proto => 'tcp');