Help for this page
# store a reference to a sub my $coderef = sub ... $coderef->(); $coderef->('Bar'); $coderef->();
my $code =<<'CODE'; print shift || "Foo"; ... my $coderef = eval"sub{$code}";