perl -wle'
use constant NAME1 => 23;
sub NAME2 { 23 }
print NAME1 + 1;
print NAME2 + 1'
24
23