#### #!/usr/bin/perl -T use strict; use warnings; use CGI qw(header); use HTML::Template; my $tmpl = HTML::Template->new(filename => 'skeleton.tmpl'); $tmpl->param( title => "I AM JACK's HTML TITLE", CONTENT => "I AM JACK's HTML CONTENT", menu => [ {item => "JACK's LIVER", url => 'liver.html'}, {item => "JACK's SPLEEN", url => 'spleen.html'}, {item => "JACK's SPRAT", url => 'sprat.html'}, ], ); print header, $tmpl->output; #### <tmpl_var title> ####

hello world

##
##

goodbye world

##
##