use CGI qw(:all);
open M, "|/usr/lib/sendmail -t" or die "Cannot open sendmail: $!";
print M <<'END';
To: your@address.here
From: webmaster@this.host.here
Subject: the results of your form

END
for (param) {
  my @values = param($_);
  print M "$_: ", join(", ", @values), "\n";
}
close M;
print header, start_html, p("Thank you for your submission!\n"), end_h
+tml;
[download]

-- Randal L. Schwartz, Perl hacker