#!/usr/bin/perl use CGI; my $cgi = new CGI; my %form = $cgi->Vars(); print "Content-type:text/html\n\n"; print "\n"; foreach my $key(keys %form) { print "$key = $form{$key}
\n"; } print "\n"; exit;