sub zen {
  my $sub = shift;
  &$sub;
}

{
  my $answer = "Use a closure\n";
  zen(sub{print $answer;});
}