Testing

#!/usr/local/bin/perl -T use Cwd; print < Testing

Current directory is ${\getcwd()}
PERL version: $]
Real UID $<
Effective UID $>
Real GID $(
Effective GID $)

EOF print <

\%ENV:

EOF while (($key,$val) = each %ENV) { print "\n"; } print < EOF print <

\@ARGV:

$key

$val

EOF for (@ARGV) { print "\n"; } print < EOF if (defined $ENV{'CONTENT_LENGTH'}) { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); print "
$ENV{'CONTENT_LENGTH'} bytes from STDIN:
\n

";
  print $buffer;
  print "

" }