#!c:/wamp/perl/bin/perl.exe
##
## HTML template Hello World
##
use strict;
use HTML::Template;
my $that_famous_string = 'Hello, world!';
# open the html template
my $template = HTML::Template->new(filename => 'helloworld.tmpl.html');
# fill in some parameters
$template->param(THAT_FAMOUS_STRING => $that_famous_string);
# send the obligatory Content-Type
print "Content-type: text/html\n\n";
# print the template
print $template->output;