if(not IO::Socket::SSL::start_SSL($f, SSL_version => "SSLv3 TLSv1")){ die "Couldn't start TLS: \n" . IO::Socket::SSL::errstr ."\n"; } print $f "EHLO localhost\n"; $line=<$f>; print $line; print FH $line; print $f "AUTH LOGIN\n"; $line=<$f>; print $line; print FH $line;