sub datenbank
{
   use DBI;
   my $dbh = DBI->connect("DBI:mysql:dbname:localhost:3306", "user", "pass", { PrintError => 0, RaiseError => 0 } )  or die "Daten falsch";
   $sth = $dbh->prepare($anfrage) or die "Anfrage falsch";
   $sth->execute();
}