foreach my $field (param) { foreach my $value (param($field)) { $name .= "Names here\:\t$value
"; } } ##

##

open (MAIL,"|$sendmail");

print MAIL <<"EOF";
To: 'jones@here.com'
From: 'smith@here.com'
Subject:  'Names'

$name
EOF
close MAIL;


print header, <<"EOF";


$name


EOF