#!/usr/bin/perl

use strict;
use HTML::Template::Compiled;

use CGI qw(:standard);
my $cgi = new CGI;

my $template = HTML::Template::Compiled->new (
    filename => 'test_1.htm'
    );

$template -> param (
    file_include_var => "test_2.htm"
    );

print $cgi->header();
print $template->output();