#!/usr/bin/perl -d
use CGI;
# sample CGI program to illistrate using the perl
# debugger with the CGI module.
# This program accepts various key=value pairs
# either on the
# command-line
# (GET) or by standard input (POST).
# It can be run on the command-line, making
# debugging easier.

$query = new CGI;
print $query->header('text/plain'),
"You are coming from the computer $ENV{'REMOTE_HOST'}\n",
"Now printing out all key=value pairs:\n"
;
foreach $name ($query->param) {
 $value = $query->param($name);
 print "$name=$value\n";
}