#! /usr/sbin/perl  -w
use strict;

# 1. Header data
#
print "Status: 200 Okey-dokey\r\n";
print "content-TYPE: text/html\r\n";
print "\r\n";

# Initialize variables  and print HTML document header 
#
my $num = $#ARGV+1;  # Number of command line arguments
my $i = 0;
my $key = 0;
my $val = 0;

print <<EOF;
<html><head>
<title>Forms Test Page </title>
</head><body>
<h2>1. Number of Command Line Arguments = $num</h2>
EOF

if($num > 0) {
  print "<p>Command Line Arguments are: <br />";
  my $i = 0;
  for($i=0; $i<=$#ARGV; $i++) {
     print "Arg $i = $ARGV[$i] <br /> \n";
  }
  print "</p>\n";
}
else {
  print "<p>There are no command line arguments.\n";
}
print "</p>\n";
print "<h2>2. Environment Variables are:</h2>\n<p>";
while (($key, $val) = each %ENV) {
        print "$key = $val<br />\n";
}
print "</p>\n";
print "<h2>3. Data at Standard Input </h2>\n<p>";
if ($ENV{"CONTENT_LENGTH"} ne "" ) {
   while( <STDIN> ) {
       print "$_<br />";
   }
   print "</p><hr />\n";
}
else {
   print "<i>No data at standard input... </i></p><hr />\n";
}
print "</body></html>\n";

