Select Code to Download

#test_mail.pl

...

print "These addresses went: @good\n";
$smtp -> quit();

Net::SMTP=GLOB(0x977cdc0)>>> MAIL FROM:<root@test-server.my.home>
Net::SMTP=GLOB(0x977cdc0)<<< 250 2.1.0 Sender OK
...
Net::SMTP=GLOB(0x977cdc0)<<< 250 2.1.5 Recipient OK
Net::SMTP=GLOB(0x977cdc0)>>> RCPT TO:<bad_address@my.home> NOTIFY=FAIL
+URE
Net::SMTP=GLOB(0x977cdc0)<<< 550 5.1.1 User unknown