perl -we 'sub f { my $t; sub { $t } }; $x = f(); $y = f(); warn "$x $y";' CODE(0x82998c4) CODE(0x8299964) at -e line 1.