use DBI;
my($main,$password,$nick);

my $db_name = "DBI:mysql:users"; ## den Datenbankname ersetzen
my $db_user = "root"; ## Benutzername
my $db_pass = ""; ## Passwort
my @ergebnis;
my $test;

my $dbh = DBI->connect("$db_name","$db_user","$db_pass") || die "Database connection not made: $DBI::errstr";
my $sql = qq{insert into  mitglieder (password,nick) values (?,?)};
my $sth = $dbh->prepare($sql);    
my @i <= $#fields && defined({$fields[0]}