sub zen { my $sub = shift; &$sub; } { my $answer = "Use a closure\n"; zen(sub{print $answer;}); } [download]
In reply to Re (tilly) 1: The zen of code blocks by tilly in thread The zen of code blocks by mdupont