How can I disable constant folding in Perl?

Question

Given a command like,

perl -MO=Deparse -E\'use constant FOO => 42; print FOO()\'

How can I disable constant folding such that

p