my $dbh = DBI->connect("dbi:mysql:$dbank:localhost","$dbuser","$dbpass");
$sth = $dbh->prepare( "SELECT * FROM $tabelledbsystem");
$sth->execute();  


while (@row = $sth->fetchrow_array()) { 
$mailid = $row[0];
$mailaddy = $row[7];

chomp($mailaddy);
$mailaddy =~ s!\n$!!;


open (PASS3,">>/kunden/cgiresource/dbsystem/data/repairdb");
print PASS3 "$mailid|$mailaddy\n";
close(PASS3);


}
my $rc = $dbh->disconnect;    #schließen