#!/usr/bin/perl

my $hold='<TMPL_VAR HOLD>';
my $leave = '<TMPL_VAR LEAVE>';
my $munge = '<TMPL_VAR MUNGE>';

##</code><code>##

#!/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;

##</code><code>##

./fill_blanks script.in HOLD this LEAVE that MUNGE these

##</code><code>##

#!/usr/bin/perl

$hold = "this";
$leave = "that";
$munge = "these";