#!/usr/bin/perl

# import module
use dTemplate;

# read template file
$template = dTemplate->new(file => "../htdocs/templates/now.tmpl");

# get timestamp
$now = localtime;

# parse template and replace variable with function output $output = $template->parse(NOW => $now);

# print rendered version
print "Content-Type: text/html\n\n";
print $output;