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