sub datenbank
{
   use DBI;

   my $dbh = DBI->connect("DBI:mysql:$dbdatabase:$dbhost:$dbport", $dbuser, $dbpassword, { PrintError => 0, RaiseError => 0 } );
   $sth = $dbh->prepare($anfrage) || die "Kann Statement nicht vorbereiten: $DBI::errstr ";
   $sth->execute() || die "Kann Statement nicht vorbereiten: $DBI::errstr ";
}