$debug=1;
$debug&&print("Debug info...\n");

##</code><code>##

*DEBUG=\1;
$DEBUG&&print("Debug info...\n");