#!/usr/bin/perl -w
# 655823
use strict;
use warnings;
use HTML::Template;
# new; replace to use from ARGV or some other project file
my $input = "STEVE";
my $layout = HTML::Template->new( filename => "layout.tmpl" );
my $page = HTML::Template->new( filename => "page.inc" );
$layout->param( page => $page->output() );
# Now setup title with $input, rather than hardcoding
$layout->param( title => "$input" );
# spit out the page
print $layout->output();
####
<!-- tmpl_var name='title' -->
####
STEVE
STEVE
Imagine content here ..