Help for this page
#!/usr/bin/perl -w use strict; ... ); sendmail(%mail) or die $Mail::Sendmail::error; print "OK.\n", $Mail::Sendmail::log;