#!/usr/bin/perl -T
use strict;
use warnings;
use diagnostics;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use Fcntl;

use lib '/var/www/cgi-bin/newtest';
do "database.pl";
my %html;

my $vorlage = "test.tmpl";
$html{'print'} = 'Das ist ein test!';
print &html_ausgeben($vorlage, \%html);
exit;