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;

##</code><code>##

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: }

##</code><code>##

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