Help for this page

Select Code to Download


  1. or download this
    sub test (&){
      my $print = shift;
    ...
      $print->(2);
    }
    test { say "You are in the block $_[0]" };