#!/usr/bin/perl -w
use strict;
use lib qw(/home/kmiller/lib/);
use HTML::Template;

my $that_famous_string = "Hello, World!";
my $template = HTML::Template->new(filename=>'test.tmpl');

$template->param(THAT_FAMOUS_STRING=>$that_famous_string);

print "Content-type: text/html\n\n";

print $template->output;