perl -we 'sub f { my $t; sub { $t } }; $x = f(); $y = f(); warn "$x $y";'