$result = $dbh->prepare ( "SELECT  katname from kategorie" ) or die "Vorbereitung nicht durchfuehrbar!\n";

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

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

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

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

print $tmpl->output;