or download this
$ perl -MNet::SMTP -MData::Dumper -e'print Dumper(Net::SMTP->new(Host
+=> "zzzz.tmpdir.eu", Debug => 1, Timeout => 60))'
$VAR1 = undef;
...
Net::SMTP=GLOB(0x9ff45e8)<<< 250-8BITMIME
Net::SMTP=GLOB(0x9ff45e8)<<< 250 DSN
$VAR1 = bless( \*Symbol::GEN0, 'Net::SMTP' );