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