my $client = IO::Socket::INET->new(PeerAddr=>'host',PeerPort=>'port',Proto=>'tcp'); IO::Socket::SSL->start_SSL(options..);