Ответ

ash 13.12.2006 01:36 / 13.12.2006 01:36

#!/usr/bin/perl

print "Content-Type: text/html\n\n";

foreach my $key (keys %ENV)
{
	print "$key=$ENV{$key}<br />";
}

print while <STDIN>;