#!/usr/bin/env perl
use strict;
use warnings;
use Template;

my $tname = 'templates/form.html';

my $vars = {
   message  => "Hello World\n"
};

my $template = Template->new({
    INCLUDE_PATH => '/Users/7stud/perl_programs/cgi_projects/1proj')
});

$template->process($file, $vars)
    or die "*MY* template process failed: ", $template->error(), "\n";