perl -MO=Deparse  -wle'
use constant NAME1 => 23;
sub NAME2 { 23 }
print NAME1 + 1;
print NAME2 + 1
'
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use constant ('NAME1', 23);
sub NAME2 {
    23;
}
print 24;
print NAME2(1);
-e syntax OK