#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use Template;
use 5.010;
use Data::Dumper;
print "Content-Type: text/html\n\n";

#$| = 1;

#----------------------------------------------------------
#			Define Varriables 
#----------------------------------------------------------
#........................................................................................

my $template = '/var/www/linen_tracking/home.html';
say "hello ";

my $hell = "romy";

my $vars = {
	HELL => $hell,
	};


#.......................................................................................


#........................................................................................
#				Template Presentation					
#........................................................................................

my $tt = Template->new ({
	INCLUDE_PATH => [
				'/var/www/e-commerce/template/src/',
				'/var/www/e-commerce/template/lib/',
			],
	PRE_PROCESS => 'config',
	PRE_PROCESS => 'variable',
	ABSOLUTE    => 1,
	RELATIVE    => 1,
});


$tt->process($template,$vars)|| die "Failed to execute the template $tt->error() \n";