$ perl -MO=Deparse -e 'use constant c => 42; print c; print &c;'
sub c () { 42 }
use constant ('c', 42);
print 42;
print &c;
-e syntax OK