use strict; use Data::Dumper; use Carp; use HTML::Template; # open the html template my $template = HTML::Template->new( filename => 'test.tmpl' ); # fill in some parameters $template->param( HOME => $ENV{HOME} ); $template->param( PATH => $ENV{PATH} ); $template->param( FIG => "/home/monkfan/public_html/SPACE-Web2/test.png" ); # send the obligatory Content-Type and print the template output print $template->output;