Subject: Mailed Campus Calendar Event
   Date: Thu, 11 Apr 2002 14:11:16 -0500 (CDT)
   From: Requestor@from.foo.net
     To: Receiver@to.foo.net

ShDesc=This%20is%20the%20event%20field
BegMon=04
BegDay=20
BegYear=2002
BegHour=10
BegMin=00
BegAmPm=am
EventType=MISC
EndMon=04
EndDay=20
EndYear=2002
EndHour=02
EndMin=00
EndAmPm=pm
Prefix=
Loc=Anywhere
Sponsor=Anyone
Contact=Anywho
ConTel1=111
ConTel2=222
ConTel3=3333
ConEmail=foo%40bar.com
URL=http%3A%2F%2Fwhatdoyouknow.com
LongDesc=This%20is%20a%20field%20for%20details%20about%20the%20event.
=

##</code><code>##

Subject: Mailed Campus Calendar Event
   Date: Thu, 11 Apr 2002 14:11:16 -0500 (CDT)
   From: Requestor@from.foo.net
     To: Receiver@to.foo.net

ShDesc=This is the event field
BegMon=04
BegDay=20
BegYear=2002
BegHour=10
BegMin=00
BegAmPm=am
EventType=MISC
EndMon=04
EndDay=20
EndYear=2002
EndHour=02
EndMin=00
EndAmPm=pm
Prefix=
Loc=Anywhere
Sponsor=Anyone
Contact=Anywho
ConTel1=111
ConTel2=222
ConTel3=3333
ConEmail=foo@bar.com
URL=http://whatdoyouknow.com
LongDesc=This is a field for details about the event.
=

##</code><code>##

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: $!";