sub blacklist {
 my ($item,$galerie)=@_;
 use DBI;
 my $datenbank = "blacklist";
 my $datenbankhost = "localhost";
 my $datenbankuser = "xxx";
 my $datenbankpw = "yyy";

 ##########################################################
 $fehlermeldung = '<li>Fehler bei der Datenbankverbindung aufgetreten.  Bitte ueberpruefen Sie die Angaben';
 my $dbh = DBI->connect("DBI:mysql:$datenbank:$datenbankhost","$datenbankuser","$datenbankpw") || fehlerausgabe($fehlermeldung);
 ##########################################################
 my $sth = $dbh->prepare("SELECT art FROM 'blacklist' WHERE item = '$item' and Galerie = '$galerie' ");
 $sth->execute or fehlerausgabe(DBI->errstr);
 my ($ergebnis) =  $sth->fetchrow_array();
 $dbh->disconnect; # DB Connect beenden
 return $ergebnis;
}# Ende sub