<% my $block = begin %>
<% my $name = shift; =%>
Hello <%= $name %>.
<% end %>
%= $block->('Baerbel')
%= $block->('Wolfgang')
<% my $block = begin %>
<% my $name = shift; =%>
Hello <%= $name %>.
<% end %>
%= $block->('Baerbel')
%= $block->('Wolfgang')