D:\>perl -MO=Deparse -e "sub MY_CONST{'bla-bla'};$a=MY_CONST;print MY_CONST;"
sub MY_CONST {
    'bla-bla';
}
$a = MY_CONST();
print MY_CONST();
-e syntax OK