omaeno.tt

[% KSGK_CONTENTS 'daigorou' %]
sub wine {
}
[% END %]

oreto.pl

package View;
use strict;
use warnings;
use Text::Xslate;

my $tx = Text::Xslate->new(
    function => {
        KSGK_CONTENTS => sub {
            my $name = shift; # ここに omaeno.tt のなかの KSGK_CONTENTS 'daigorou' の daigorou がはいる
            my $text = shift; # ここに omaeno.tt のなかの KSGK_CONTENTS のブロックの中身がくる
        }
    }
);
$tx->rendar('omaeno.tt');