$ perl -MO=Deparse -e 'sub CONST(){1;} my $CONST = 1; print CONST, $CONST'
    sub CONST () { 1 }
    my $CONST = 1;
    print 1, $CONST;
    -e syntax OK