Pipe to this to do a quick template (with {{ }} delimiters)

template.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Text::Template 'fill_in_file';
use 5.010;

my $template = shift;
my @content = <>;
say fill_in_file($template, 
    HASH => { CONTENT => (join '', @content) },
    DELIMITERS => [ '{{', '}}' ]
);