#!/usr/bin/perl -w
use strict;
use Template;
my $file = 'my_template.tmpl';
my $vars = {
       name  => "Schmidy"
    };
my $template = Template->new();
$template->process($file, $vars)
	|| die "Template process failed: ", $template->error(), "\n";