#!/usr/bin/perl

use strict;
use warnings;
use HTML::Template;

use vars qw( $in %args $template );

$in = shift @ARGV;
%args = @ARGV;

$template = HTML::Template->new( filename => $in );
$template->param(%args);
print $template->output;