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

From John De Castro - General Request Echo

END # HTTP Protocol, HTTP Method, and the Query String are all environment variables print "

HTTP Protocol: $ENV{SERVER_PROTOCOL}

"; print "

HTTP Method: $ENV{REQUEST_METHOD}

"; print "

Query String: $ENV{QUERY_STRING}

"; # NOTE: Although the Query String is an environment variable, the Message Body # must be read in from the Standard Input with any language using CGI. # Credit for this code to read in STDIN in Perl comes from: # https://stackoverflow.com/questions/30447317/how-to-handle-post-request-to-perl-from-html my $bytes_read = read STDIN, my $form_data, $ENV{CONTENT_LENGTH}; print "

Message Body: $form_data

"; # Print the HTML file bottom print "\n";