BEGIN { INIT { *::_ = sub { # Shout to be understood return uc($_[0]); }; } }