Select Code to Download

$smtp = Net::SMTP->new($host);
print ">>Connected to $host\n";
...
print ">>End of DATA\n[".$smtp->code()."] ".$smtp->message()."\n";
$smtp->quit;
print ">>Closed connection\n[".$smtp->code()."] ".$smtp->message()."\n
+";