#!C:\perl\bin\perl.exe
##!/usr/bin/perl -T
use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI qw(param url);

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

print "Content-type: text/html\n\n";

my $datei = "info.dat";
my $test;

open(FILE, "< $datei");
{
    local $/;
    $test = <FILE>;
}
close FILE;

$template->param(
test => $test,);

print $template->output();