perl -MO=Deparse -le 'use constant X=>17; print X' -e syntax OK sub X () { package constant; $scalar; } print 17;