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: } ! 8: ! 9: warn "test";