#!/usr/local/bin/perl

print "Content-type: text/plain\n\n";

print "---\n";

foreach $x (keys %ENV)
{
	print "$x: " . $ENV{$x} . "\n";
}

print "---\n";

foreach $y (@ARGV)
{
	print "arg: $y\n";
}

print "---\n";

while ($line = <STDIN>)
{
	print $line;
}

print "---\n";