BEGIN { *SCALAR::uc = \&CORE::uc }