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