use HTML::Template::Compiled;
sub stream {
    my ($fh) = @_;
    while (<$fh>) {
        print "STREAM: $_";
        sleep 1;
    }
}

if (my $pid = open my $pipe, "-|") {
    # prozess forken, kind schreibt in $pipe als STDOUT,
    # wir lesen von $pipe
    stream($pipe);
}
else {
    my $htc = HTML::Template::Compiled->new(
        scalarref => \<<EOM,
test
1
zwo
blubb
EOM
        out_fh => 1,
    );
    $htc->output(\*STDOUT); # schreibt in $pipe
    exit;
}