#!/usr/bin/perl print "Cache-Control: no-cache\n"; print "Content-type: text/html \n\n"; # print HTML file top print < GET Request Echo

From John De Castro - Get Request Echo

END # The Query String is simply an environment variable print "Query String: $ENV{QUERY_STRING}
\n"; # Credit for this code to parse the Query string: # https://www.mediacollege.com/internet/perl/query-string.html if (length ($ENV{'QUERY_STRING'}) > 0){ $buffer = $ENV{'QUERY_STRING'}; @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $in{$name} = $value; } } #Print out the Query String $loop = 0; foreach my $key (%in) { $loop += 1; if($loop % 2 != 0) { print "$key = $in{$key}
\n"; } } # Print the HTML file bottom print "";