Select Code to Download

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

sub SCALAR::uc { CORE::uc($_[0]); }

sub SCALAR::uc { goto &CORE::uc; }