01: $| = 1;
02: 
03: sub SCALAR::uc { uc $_[0] }
04: 
05: {
06:     use autobox;
07:     print "hello, world!"->uc;
08: }
09: 
10: print "hello, world!"->uc;