|
|
1.1 paf 1: #!c:\progra~1\perl\bin\perl
2:
3: print "content-type: text/html\n\n";
4:
5: while (($Key,$Value)=each %ENV) {
6: print "$Key=$Value<BR>";
7: }
1.2 paf 8: print "EOE";
1.1 paf 9:
10: warn "test";