sub datenbank
{
   use DBI;
   my $dbh = DBI->connect("DBI:$dbdriver:$dbdatabase:$dbhost:$dbport", $dbuser, $dbpassword, { PrintError => 0, RaiseError => 0 } );
   $sth = $dbh->prepare($anfrage);
   $sth->execute();
}