Help for this page

Select Code to Download

Select or download this

BEGIN {
    *::_ = sub {
...
        return uc($_[0]);
    };
}

Select or download this

BEGIN {
    INIT {
...
        };
    }
}