I need help with templates

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;
[download]

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>
[download]

Back to Seekers of Perl Wisdom