#template2.pl
c:\perl\bin\perl.exe
use warnings;
use strict;
use CGI;
use HTML::Template;
my $template = HTML::Template->new(filename => 'c:\inetpub\wwwroot\cgi-bin\template2.tmpl');
open(FH, 'c:\temp\output.txt') || die("Can't open output.txt: $!");
my $ioref = \*FH;
$template->param(FILE => "$ioref");
$template->param(PATH => 'yellow brick road');
print "Content-Type: text/html\n\n", $template->output
####
#template2.tmpl
Test Template
Contents of file are
Path is set to
##
##
Contents of file are GLOB(0x152ab4c)
Path is set to yellow brick road