shell> perl -e 'sub VERSION {} \
                print  "what? [", *main::VERSION{CODE}, "]\n";'
what? [CODE(0x8107f30)]