http://www.perlmonks.org?node_id=1102015

Hramyzn has asked for the wisdom of the Perl Monks concerning the following question:

Hello, I've decided to learn how to use templates with Perl but all i get are server errors. More specificaly "End of script output before headers: test.pl". I am using Windows and XAMPP web server. I have the test.pl file in xampp/htdocs/test directory of XAMPP and the current_time.tmpl in xampp/htdos/test/templates directory. Here are the two files:

test.pl:
#!"C:\xampp\perl\bin\perl.exe" use strict; use HTML::Template; use constant TMPL_FILE => "$ENV{DOCUMENT_ROOT}/templates/current_time. +tmpl"; my $tmpl = new HTML::Template( filename => TMPL_FILE ); my $time = localtime; $tmpl->param( current_time => $time ); print "Content-type: text/html\n\n", $tmpl->output;
current_time.tmpl
<HTML> <HEAD> <TITLE>Current Time</TITLE> </HEAD> <BODY BGCOLOR="white"> <H1>Current Time</H1> <P>Welcome. The current time is <TMPL_VAR NAME="current_time">.</P> </BODY> </HTML>