--- parser3/www/htdocs/Attic/_bug.pl	2005/06/06 08:45:12	1.3
+++ parser3/www/htdocs/Attic/_bug.pl	2005/08/09 08:19:04	1.3.6.1
@@ -1,9 +1,12 @@
 #!c:/perl/bin/perl
 
 #a
-print "header:value from $0\n";
+print "header:value from $ARGV[0]\n";
 print "Header1: lala1111\n";
 print "\n";
 
 print $ENV{QUERY_STRING};
+open BUG, '>_bug.txt';
+print BUG $ENV{QUERY_STRING};
+print BUG $ARGV[0];
 print "done";