use strict;
use warnings;
use Template;

my $data = 'fred has [% color %] eyes';
my $vars = {
    color => 'blue',
};

my $tt = Template->new;
$tt->process(\$data, $vars) || die $tt->error;