Select Code to Download

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

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