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