Select Code to Download

my @params;
foreach ( $q->param() ) {
...
    push @params, $q->param($_);
}
my %param = @params;

foreach my $key ( keys %param ) {
    print FILE "$key\t$param{$key}\n";
    $email_content .= "$key:\t$param{$key}\n";
}

$email_content .= "email_address:\t$param{email_address}\n";