sub show_entries {
     my ($dbh, $sth, @row);
     my $category;

     $dbh = DBI->connect("DBI:mysql:database=$serverDb;host=$serverName;port=$serverPort",$serverUser,$serverPass);
     $sth = $dbh->prepare("SELECT * FROM $serverTabl");
     $sth->execute;
     
     while(@row = $sth->fetchrow_array) {
      ###Ausgabe der Zeilen..
     }
      
     $sth->finish;
     $dbh->disconnect;
}

$dbh->disconnect or warn $dbh->errstr;