Perl basic cgi

perl.cgi

#!/usr/bin/perl -wT
use strict;
use HTML::Template;

use constant TMPL_FILE => "$ENV{DOCUMENT_ROOT}/template.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;