Select Code to Download

#!c:/perl/bin/perl -w

...

# code changed at mt2k's request.  -kudra Original: 
# print "$n: $v<br>"; while (my($n,$v) = each %input);