sub foo { return "bar" }
printf "foo returns %s\n", foo();

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;
use Template;

sub foo {return "bar"}

my $output;

Template
    ->new
    ->process(
        \"foo returns [% f %]\n",
        {f => foo()},
        \$output,
    );

print $output;