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

use HTML::Template;
use CGI qw/:standart fatalsToBrowser/;

my $template = HTML::Template->new(filename => '../template.tmpl');

open(OOP, "<oo.txt") || die "$!";
my @main = <OOP>;
close(OOP);

$template->param(MAIN => "@main");

print "Content-Type: text/html\n\n", $template->output;