# Subroutine to send mail safely on Unix systems.  Needs slight
# modifications to run on Windows NT systems.

# call in this way:
#   mail('someone@somewhere.org','me@myself.org',
#        'this is the subject','This is the message.');

# See "Web Security, A Step-by-Step Reference Guide" by Lincoln Stein, page 323

sub mail {
    my($to,$from,$subject,$message) = @_;
    open (MAIL,"| /usr/lib/sendmail -t -oi");
    print MAIL <<END;
To: $to
From: $from
Subject: $subject

$message
END
    close MAIL;
}