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