Select Code to Download

use strict;
use CGI;
...
foreach my $name ($CGI->param) {
    print "$name = ", $CGI->param($name), "\n";
}

    my $value = join(",", $CGI->param($name)) || ''; 
    print  "$name = $value\n";