register.cgi (308B) - raw
1 #!/usr/bin/perl 2 3 use strict; 4 use warnings; 5 use CGI; 6 7 my $cgi = CGI->new; 8 9 print $cgi->header( "text/plain;charset=iso-8859-1" ); 10 print "These are the results I received:\n\n"; 11 12 foreach my $name ($cgi->param) { 13 foreach my $value ( $cgi->param( $name ) ) { 14 print $name, ": ", $value, "\n"; 15 } 16 }