#!/usr/bin/perl
use strict; use warnings;
# Required header
print "Content-Type: text/html\n\n";
my $raw = $ENV{'QUERY_STRING'} // '';
# Simple HTML response
print <<"HTML";
GET Request Echo
GET Request Echo
Raw Query String:
Formatted Query String:
HTML
for my $pair (split /&/, $raw) {
my ($k,$v) = split /=/, $pair, 2;
print "$k: $v\n" if defined $k;
}
print <<"HTML";