cgi-bin/envtest.pl

   1 #!/usr/bin/perl
   2
   3 print "Content-Type: text/plain\n\n";
   4
   5 print "Conf: /home/farm/server\n";
   6
   7 print `pwd`;
   8
   9 print `id`;
  10
  11 foreach my $key (sort keys %ENV)
  12 {
  13   my $val = $ENV{$key};
  14   print "$key=$val\n";
  15 }