Help for this page

Select Code to Download

Select or download this

  DB<161> ;{ my $b; for (1..3){ print sub {1} ; print $b= sub {2} if $
+_==1 } }
CODE(0x86c5af0)
...
141319216
141319552
141319552