$ perl5.8.9 -we 'sub f { our $t; sub { $t } }; $x = f(); $y = f(); warn "$x $y";' CODE(0x867218c) CODE(0x8672258) at -e line 1.