Name: <% $name %>
##

##

    $_out->("Name: ");
    $_out->( $name );
    $_out->("
");

##

##

    my $_out = sub { print @_ }