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:xx", "xx", "xx", { AutoCommit => 0 } );
my $hStatement = $hDB->prepare("MYSQL");			
$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/mytemplate.html", $sData) || die $oTT->error(), "\n";