Select Code to Download

$ perl -le'use constant BEGIN => 4; print(BEGIN);'
4

$ perl -le'use constant INIT => 4; print(INIT);'
Undefined subroutine &IO::File::AUTOLOAD called.
INIT failed--call queue aborted.