|
|
1.5 ! paf 1: #!c:\perl\bin\perl 1.1 paf 2: 1.3 paf 3: #a 4: print "header:value from $0\n"; 5: print "Header1: lala1111\n"; 6: print "\n"; 1.2 paf 7: 1.1 paf 8: print $ENV{QUERY_STRING}; 1.5 ! paf 9: open F, '>_bug.txt'; ! 10: print F $ENV{QUERY_STRING}; 1.1 paf 11: print "done";