env-cgi.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:54:31 2010 from env-cgi.pl 2005/06/18 427.

#!/usr/bin/perl
print "Content-Type: text/html\n\n";
while (($key,$value) = each %ENV) {
   ###print "$key = $value \n";
   prt("$key");
   ##prt(" = ");
   prt("\n");
   my @arr = split(';', $value);
   my $cnt = 0;
   foreach $ky (@arr) {
      ##if ($cnt) {
      ##   prt("|");
      ##}
      prt(" --- $ky");
      $cnt++;
      prt("\n");
   }
   ##prt("$value");
   prt("\n");
}
sub prt {
   ##my ($txt) = @_;
   ##print $txt;
   print @_;
}

index -|- top