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

##</code><code>##

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