eval{ open (MAIL, "|/bin/mail $address -s $mail_subject"); print MAIL "$standard_message \n"; $comment and print MAIL "$comment \n"; close MAIL; }; $@ and die "A local error occurred while attempting to send the message: $@\n";