print "Content-type: text/html\n\n";
my $oTT = Template->new({
    INCLUDE_PATH => '../templates',
    EVAL_PERL    => 1,
    ABSOLUTE     => 1, 
}) || die "$Template::ERROR\n";

# DB - Connect
my $hDB = DBI->connect( "dbi:Oracle:xe", "lp", "lpdba", { AutoCommit => 0 } );
my $hStatement = $hDB->prepare("
	SELECT v.vertragsnummer, a.artikelnr, v.status, v.datum, v.nachricht
	FROM vertraege v, artikel a, benutzer b, lieferanten l, mandanten m
[...]");			
$hStatement->execute(  );
while ( ( $iVertragsnummer, $sArtikelNr, $sVertragsStatus, $sVertragsDatum, $iMsgID ) =  $hStatement->fetchrow_array() ){
   push (@aRows, ( $iVertragsnummer, $sArtikelNr, $sVertragsStatus, $sVertragsDatum, $iMsgID ));
}
$hStatement->finish;
$hDB->disconnect;

my $sData = {
	'result' => \@aRows
};

$oTT->process("../templates/mytemp.html", $sData) || die $oTT->error(), "\n";