my $db_name = "$main->{settings}{sqldb}";
my $db_user = "$main->{settings}{sqluser}";
my $db_pass = "$main->{settings}{sqlpass}";
my $db_host = "$main->{settings}{sqlhost}";
my $db_port = "$main->{settings}{sqlport}";
my $db_connect = "DBI:mysql:$db_name:$db_host:$db_port";
my @ergebnis;
my $id;

my $dbh = DBI->connect($db_connect, $db_user, $db_pass) || die "Verbindung kann nicht hergestellt werden: $DBI::errstr";