Help for this page

Select Code to Download


  1. or download this
    $ perl5.10.1 -we 'sub f { our $t; sub { $t } }; $x = f(); $y = f(); wa
+rn "$x $y";'
CODE(0x95ca930) CODE(0x95ca930) at -e line 1.
  2. or download this
    $ perl5.8.9 -we 'sub f { our $t; sub { $t } }; $x = f(); $y = f(); war
+n "$x $y";'
CODE(0x867218c) CODE(0x8672258) at -e line 1.