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

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

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