open (MAIL, "|/usr/lib/sendmail -oi -t") or die "Can't fork sendmail: $!";
print MAIL <<EOF;
From: Requestor@from.foo.net
To: Receiver@to.foo.net
Subject: Mailed Campus Calendar Event

EOF
### Note: All params are single-instance scalars.
print MAIL "$_: ", $query->param($_), "\n" foreach $query->param;
close (MAIL) or die "can't close sendmail: $!";