$ perl -MNet::SMTP -MData::Dumper -e'print Dumper(Net::SMTP->new(Host => "zzzz.tmpdir.eu", Debug => 1, Timeout => 60))'
$VAR1 = undef;
$ perl -MNet::SMTP -MData::Dumper -e'print Dumper(Net::SMTP->new(Host => "mail.tmpdir.eu", Debug => 1, Timeout => 60))'
Net::SMTP>>> Net::SMTP(2.31)
Net::SMTP>>>   Net::Cmd(2.29)
Net::SMTP>>>     Exporter(5.66)
Net::SMTP>>>   IO::Socket::INET(1.33)
Net::SMTP>>>     IO::Socket(1.34)
Net::SMTP>>>       IO::Handle(1.33)
Net::SMTP=GLOB(0x9ff45e8)<<< 220 mail.g5n.co.uk ESMTP Postfix (Ubuntu)
Net::SMTP=GLOB(0x9ff45e8)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x9ff45e8)<<< 250-mail.g5n.co.uk
Net::SMTP=GLOB(0x9ff45e8)<<< 250-PIPELINING
Net::SMTP=GLOB(0x9ff45e8)<<< 250-SIZE 10240000
Net::SMTP=GLOB(0x9ff45e8)<<< 250-ETRN
Net::SMTP=GLOB(0x9ff45e8)<<< 250-STARTTLS
Net::SMTP=GLOB(0x9ff45e8)<<< 250-AUTH PLAIN LOGIN
Net::SMTP=GLOB(0x9ff45e8)<<< 250-AUTH=PLAIN LOGIN
Net::SMTP=GLOB(0x9ff45e8)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB(0x9ff45e8)<<< 250-8BITMIME
Net::SMTP=GLOB(0x9ff45e8)<<< 250 DSN
$VAR1 = bless( \*Symbol::GEN0, 'Net::SMTP' );