perl -MO=Deparse -e "use constant FOO => 5; print +FOO,qq{\n};"