#!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";
open(FILE, "< $datei");
my $test = (<FILE>); 

close FILE;

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

print $template->output();