use strict;
use warnings;
use HTML::Template;
use Inline::Files;
my $skeleton = HTML::Template->new(filehandle => \*SKELETON);
my @page = (
HTML::Template->new(filehandle => \*PAGE1),
HTML::Template->new(filehandle => \*PAGE2),
);
for (@page) {
$skeleton->param(body => $_->output);
print $skeleton->output;
}
__SKELETON__
__PAGE1__
hello world
__PAGE2__
foo bar baz qux