Select Code to Download

print DEBUGOUT "blah blah debug message blah" if DEBUGGING;

print DEBUGOUT "key=$a, value=$b\n" while( ($a, $b) = each %hash and D
+EBUGGING );