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