use HTML::Template;

my $tmpl=HTML::Template->new(filename => 'template.txt');
$tmpl->param( TIME => scalar localtime(time) );
print $tmpl->output;