[% FOREACH user = query.execute() %]
							
							[% Dumper.dump( user ) %]
							 
							<tr class="tbl_3_col_ia_tr1">
								<td class="tbl_3_col_ia_td tbl_3_col_ia_td_1 tbl_3_col_ia_text">
									<span>
									[% user.vertragsnummer %]
									</span>
								</td>
								<td class="tbl_3_col_ia_td tbl_3_col_ia_td_2 tbl_3_col_ia_text">
									<span class="tbl_3_col_ia_span_mid_l">
									[% user.artikelnr %]
									</span>
									<span class="tbl_3_col_ia_span_mid_r">
									</span>
								</td>
								<td class="tbl_3_col_ia_td tbl_3_col_ia_td_3 tbl_3_col_ia_text">
									<span class="">
									</span>
								</td>
								</tr>
								
							[% END %]

##</code><code>##

$VAR1 = { 'DATUM' => '09-JUL-15', 'STATUS' => 'Eingelesen', 'NR' => '11000530', 'NACHRICHT' => '528', 'aNR' => '8041094A' }; $VAR1 = { 'aNR' => '8033010E', 'NR' => '11000527', 'STATUS' => 'Eingelesen', 'NACHRICHT' => '1559', 'DATUM' => '09-JUL-15' }; [...]

##</code><code>##

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";

##</code><code>##


[% FOREACH line IN result %]
  [% Dumper.dump( line ) %]
  [% line.VERTRAGSNUMMER %]
  [% line.ARTIKELNR %]
[% END %]

##</code><code>##

$VAR1 = '11000530'; $VAR1 = '8041094A'; $VAR1 = 'Eingelesen'; [...]