#!/usr/bin/perl
use strict;
use warnings;

use Template;

my $data = { name => 'Ovid' };
my $template = Template->new;
my $output;
$template->process(\*DATA, $data, \$output);
print $output;

__DATA__
Hello, [% name %]
[download]