#!/usr/bin/perl use strict; use warnings; use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Sortkeys = 1; use HTML::Template; # # Load the layout and a stub page of "content" # my $layout = HTML::Template->new( filename => "layout.template" ); my $page = HTML::Template->new( filename => "page.inc" ); $page->param( title => "STEVE"); # <-- new line # # Insert the body into the layout template # $layout->param( page => $page->output() ); # # Now setup the title # $layout->param( title => "STEVE" ); print $layout->output();