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