BEGIN {
    sub MyPackg::DBG() {
        0;
    }
    
}
our $a = 1;
package MyPackg;
print 'DEBUGGING' if DBG();  # <-- oops
print 'huhu';