Select Code to Download

    {
        no strict 'refs';
...
            *$full_name = sub () { };
        }
    }

    use constant FOO => 7;
    print FOO + 1;

    sub FOO {7};
    print FOO + 1'