$ perl -MO=Deparse,-x7 -le'use constant DEBUG => 0; print "test" if DEBUG'

sub DEBUG () {
    package constant;
    $scalar;
}
'???';

-e syntax OK