#!/usr/bin/perl
use CGI qw(:standard);
@submits = param();

open(MAIL, "|/usr/sbin/sendmail -oi -t") or die "Can't Open Sendmail: $!";
print MAIL <<EOF;
From: Web Page
To: patrick\@pacoswithtacos.net
Subject: Web Form Submission

EOF

foreach $item (@submits) {
   print MAIL "$item=".param($item)."\n";
}
close(MAIL);
print "Location: ../thank_you.html\n\n";