$ perl -le'use constant BEGIN => 4; print(BEGIN);'
4