# a perl koan designed for a true perl monk
sub zen
{
   my $coderef = shift; # the code ref is a
   &$coderef; # Find the inner meaning
};
zen (sub {
print "How can I put a variable that is only visable
to zen from within this anon code block?";
});
# mdupont