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