perlquestion
Hramyzn
<p>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:</p>
test.pl:
<code>
#!"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;</code>
current_time.tmpl
<code>
<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></code>