#! /usr/local/bin/perl

print <<EOF;
Content-type: text/html

<TITLE> Script output <\/TITLE>

This is the output from a bogus CGI script.  The key vars are:

<PRE>
PATH_INFO = %ENV{"PATH_INFO"}
PATH_TRANSLATED = %ENV{"PATH_TRANSLATED"}
SCRIPT_NAME = %ENV{"SCRIPT_NAME"}
QUERY_STRING = %ENV{"QUERY_STRING"}
<\/PRE>
EOF