#!/usr/bin/perl
print "Content-type: text/plain\n\n";
print "The command line arguments for this script are:\n";
print join(" ",@ARGV),"\n\n";
print "The request information available to the script includes:\n\n";
print "REQUEST_METHOD = ",$ENV{"REQUEST_METHOD"},"\n";
print "PATH_INFO = " ,$ENV{"PATH_INFO"},"\n";
print "PATH_TRANSLATED = " ,$ENV{"PATH_TRANSLATED"},"\n";
print "SCRIPT_NAME = " ,$ENV{"SCRIPT_NAME"},"\n";
print "QUERY_STRING = " ,$ENV{"QUERY_STRING"},"\n";
print "CONTENT_TYPE = ",$ENV{"CONTENT_TYPE"},"\n";
print "CONTENT_LENGTH = ",$ENV{"CONTENT_LENGTH"},"\n\n";
if($ENV{"REQUEST_METHOD"} eq "POST")
{
$contentLength = $ENV{"CONTENT_LENGTH"};
if($contentLength)
{
read(STDIN,$queryString,$contentLength);
}
else
{
$queryString = "";
}
print "Standard in is:\n";
print $queryString;
print "\n";
}
1;
#############################################
Request Initiator
GET Form
POST Form