$mail{From} = 'nstouch'; $mail{To} = 'administrator '; #$server = 'xx.xx.xx.xx'; BEGIN { $| = 1; print ""; } END {print "not ok 1\n" unless $loaded;} $loaded = 1; if ($server) { $mail{Smtp} = $server; } $mail{Subject} = "NStouch has a message for you..."; #$mail{Subject} = "Mail::Sendmail version $Mail::Sendmail::VERSION test"; $mail{Message} .= "Hello, \n "; $mail{Message} .= "\nNStouch wants to notify you that: \n"; $mail{Message} .= "\n [ $dater ][ TEST ON $nameserver WAS COMPLETED: SERVER DOWN ][ TIME : $us2 Miliseconds ] "; $mail{Message} .= "\n Thanks! \n \n $mailcounter \n"; # Go send it if (sendmail %mail) { #print "content of \$Mail::Sendmail::log:\n$Mail::Sendmail::log\n"; if($Mail::Sendmail::error) { print " \n OH DANG! \n Senmail Errors \n ";