Select Code to Download

while (my ($variable_name, $variable_value ) = each %params) {
    print "Variable name = $variable_name/n Variable value = $variable
+_value\n\n";
}

#!/usr/bin/perl -wT
# tools.cgi
...
while (my ($variable_name, $variable_value ) = each %params) {
    print "Variable name = $variable_name/n Variable value = $variable
+_value\n\n";
}

foreach $sri_variable( $cgi->param){
    print "$sri_variable:\n";
...
        print "  $variable_value\n";
    }
}