Select Code to Download

BEGIN {
    sub MyPackg::DBG() {
...
package MyPackg;
print 'DEBUGGING' if DBG();  # <-- oops
print 'huhu';

F:\>perl -MO=Deparse tmp.pl
sub MyPackg::DBG () { 0 }
...
'???';
print 'huhu';
tmp.pl syntax OK