Select Code to Download

while (my($n,$v) = each %input) { print "$n: $v<br>"; }

#!c:/perl/bin/perl -w
use strict;
...
my %input = CGI::Vars;
print "Content-type: text/html\n\n";
while (my($n,$v) = each %input) { print "$n: $v<br>"; }