Select Code to Download

  DB<123> sub test(&) { my( $c ) = @_; print 0+$c,$/; return $c }

...
145184216
145184216
 => ""

  DB<155> sub tst2(&) { my( $c ) = @_; print &$c,":\t",0+$c,$/;return 
+$c}

...
2:    141318480
3:    141318480

  DB<158> ;{ my $b; for my $a (1..3){tst1 {1} ; $b=tst2 {2} if $a==1 }
+ }
1:    141317840
2:    141317840
1:    141318608
1:    141318608