$ perl -MO=Deparse,-p -e " use constant X => 1/3; "
use constant ('X', 0.33333333333333331);
-e syntax OK