- or download this
my @params;
foreach ( $q->param() ) {
...
push @params, $q->param($_);
}
my %param = @params;
- or download this
foreach my $key ( keys %param ) {
print FILE "$key\t$param{$key}\n";
$email_content .= "$key:\t$param{$key}\n";
}
- or download this
$email_content .= "email_address:\t$param{email_address}\n";