Select Code to Download

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