open (DATEI,"</kunden/cgiresource/dbsystem/data/repairdb") || die "Fehler in $datei $!";
chomp(@datei = <DATEI>);
close (DATEI);

foreach $zeile (@datei)
{
($id,$mail) = split (/\|/, $zeile);
#$mail =~ s/\n//g;
my $dbh = DBI->connect("dbi:mysql:$dbank:localhost","$dbuser","$dbpass");
$sth = $dbh->prepare( "UPDATE dbsystem2 SET mail=\"$mail\" WHERE id='$id' LIMIT 1"); 
$sth->execute();  
my $rc = $dbh->disconnect;    #schließen
}