#!/usr/bin/perl use strict; use CGI; { my $query = CGI::new(); my @frmprm = $query->param; my $prmcnt = @frmprm; print "Content-Type: text/html\n\n"; print "\n"; print "Perl CGI Parameter Test Script Results\n"; print "\n"; print "

Perl CGI Parameter Test Script Results\n"; print "

You have successfully launched the Perl CGI Parameter test.\n"; print "

\n"; print " \n"; print " \n"; my $spntxt=' '; if ($prmcnt) { my $spncnt = $prmcnt + 1; $spntxt = " ROWSPAN=$spncnt"; } print "      \n"; if (!$prmcnt) { print " \n"; } else { print " \n"; print "   \n"; print " \n"; foreach my $frmprm (@frmprm) { my $prmval = $query->param($frmprm); print " \n"; print " \n"; print " \n"; print " \n"; } } print " \n"; print "
\n"; print " (No parameters were passed)\n"; print " ParameterValue
$frmprm$prmval
\n"; print "

User your browser BACK button to return.\n"; print "\n"; print "\n"; } exit; __END__