>>> STARTTLS Net::SMTP=GLOB(0x83f812c)
<<< 220 2.0.0 continue Net::SMTP::_SSL=GLOB(0x83f812c)
>>> EHLO oh01lx03.workflowone.net Net::SMTP::_SSL=GLOB(0x83f812c)

##</code><code>##

my $smtp = Net::SMTP->new(...);
$smtp->starttls or die;
print "encrypting with cipher=".$smtp->get_cipher."\n";