$ perl -e'use constant { FOO = 1, BAR = 2}; print FOO,BAR'


##</code><code>##

$ perl -e'use constant { FOO => 1, BAR => 2}; print FOO,BAR'
12$