Test

sub parse { my $q = new CGI; print $q->header; print ''; print 'Test'; print ''; print "These are the parameters I received:

"; my( $name, $value ); foreach $name ( $q->param ) { print "$name:\n"; foreach $value ( $q->param( $name ) ) { print " $value\n"; } } print '

'; } ##

##

     These are the parameters I received:

     POSTDATA: