- or download this
use Mail::Sender;
eval {
...
$sender->Close();
} or print "Error in sending mail: $Mail::Sender::Error\n";
print "Mail sent OK.\n\n";
- or download this
[ncoadmin@station28 Cox_CMDB]$ perl /tmp/sendmail.pl
Mail sent OK.
- or download this
[ncoadmin@station28 Cox_CMDB]$ perl /tmp/sendmail.pl
Error in sending mail: Connection not established
Mail sent OK.