use CGI qw(:standard);

# bundle up form submissions into a mail_body

$mail_body = '';

foreach $field (param) {
    foreach $value (param($field)) {
        $mail_body .= "$field: $value\n";
    }
}

open (MAIL,"|$sendmail") || die "Can't open sendmail pipe: $!\n";


print MAIL <<"EOF";
To: You
From: Me
Subject: web data

$mail_body
EOF