#!/usr/bin/perl use warnings; use strict; use HTML::Template; my $t = HTML::Template->new(filehandle => *DATA); print $t->output; __DATA__ Simple Test
...stuff...
#### Simple Test home - about - services - etc
...stuff...
its all about service etc