cgi-bin/envtest.pl

   1 #!/usr/bin/perl
   2
   3 print "Contect-Type: text/plain\n\n";
   4
   5 print "Conf: $ENV{BFConfDir}\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 }