#!/usr/local/bin/perl use strict; use warnings; use YAML qw/LoadFile/; use Template; my $tt = Template->new; $tt->process($ARGV[1], LoadFile($ARGV[0])) or die $tt->error;