17:21 >perl -MO=Deparse -e "use constant { C => 42, D => 0 }; print C; print 'Debug' if D;"
use constant ({'C', 42, 'D', 0});
print 42;
'???';
-e syntax OK

17:28 >