#!/usr/bin/perl

use Template;
my $tt = Template->new({
    INCLUDE_PATH => '/usr/local/templates',
    INTERPOLATE  => 1,
}) || die "$Template::ERROR\n";

my %var;
while (@ARGV && $ARGV[0] =~ /=/) {
    my $arg = shift;
    my ($k, $v) = split /=/, $arg, 2;
    $var{$k} = $v;
}

my $template = join "", <>;

my $output;
$tt->process(\$template, \%var, \$output)
  || die $tt->error(), "\n";

print $output;
exit;