print("Content-Type: text/html\n\n"); print(""); $QSTRING = $ENV{'QUERY_STRING'}; $QSTRING =~ s/\+/ /g; print("

(\$)QSTRING: $QSTRING

"); # Split the $QSTRING by the ampersand and assign the parts to @QSTRING @QSTRING = split(/&/,$QSTRING); # Check the values in @QSTRING print("

(@)QSTRING:"); foreach $QSPart(@QSTRING) { print(" $QSPart"); } print("

"); foreach $Part(@QSTRING) { %FormData = split(/=/, $Part); } # Attempt to print out the names and values of the QSTRING.... @InputNames = keys(%FormData); foreach $InputName(@InputNames) { print("

$InputName: $FormData{$InputName}

"); } print("");