#!/usr/bin/perl
    use DBI;
        
        print "Content-type: text/html \n\n";

    $dbh = DBI->connect("DBI:mysql:$sql_bank", $sql_user,$sql_pass) || "Fehler beim Datenbank connect!";
    my $sth = $dbh->prepare("SELECT id, name from kategorie");
    $sth->execute();
    
    while(my @row = $sth->fetchrow_array())
    {
        print "$row[0] - $row[1]\n";
    }
    
    $sth->finish();
    $dbh->disconnect();

    $dbh = DBI->connect("DBI:mysql:$sql_bank", $sql_user,$sql_pass) || "Fehler beim Datenbank connect!";

    $dbh = DBI->connect("DBI:mysql:$sql_bank", $sql_user,$sql_pass) || die "Fehler beim Datenbank connect!";