#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use DBI;
use CGI::Carp qw ( fatalsToBrowser );
use HTML::Template::Compiled;

use constant TMPL_FILE => "$ENV{DOCUMENT_ROOT}/db/templates/neue_auktion.tmpl";
...
...
# hier wird eine Datenbank geöffnet und die Rückgabe in "result" gepeichert.

$result->execute() or die "Abfrage nicht ausfuehrbar -kategorie!\n";

while ( $zeile = $result->fetchrow_arrayref )
{
    push ( @kategorien, $zeile->[0] );
}

$result->finish();

$tmpl = new HTML::Template::Compiled ( filename => TMPL_FILE );

$tmpl->param ( vorname    => $vorname,
                           nachname => $nachname,
                           kategorien => \@kategorien );

print $tmpl->output;

$dbh->disconnect();
exit;