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

From John De Castro - POST Request Echo

END # 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 the Post data 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}; # Credit for this code to parse the Query String: # https://www.mediacollege.com/internet/perl/query-string.html if (length ($form_data) > 0){ $buffer = $form_data; @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 "Message Body:
\n"; print "\n"; # Print the HTML file bottom print "\n";