foreach my $zeile(@safe_rar)
    {
    $ftp->binary() 
         or die "no Binary ", $ftp->message; 
    print FEHLER "Upload der Dateien.\n";
    $ftp->put("$zeile")|| print FEHLER "Am $datum ist ein Fehler aufgetreten\nKonnte folgende Datei $zeile nicht auf den FTP-Server hochladen. $!\n\n";
    }
print $socket "@safe_rar"."\n";
print FEHLER "Überprüfung ob alle Dateien vorhanden sind";
while ($answer ne "ok")
    {
    $answer = <$socket>;
    chomp $answer;
    my @answer = split (/ /, $answer);
    foreach my $fd (@answer)
        {
        foreach my $zeile (@safe_rar)
            {
            if ($fd eq $zeile)
               
 {
               
 $ftp->binary() 
                    
 or die "no Binary ", $ftp->message;
               
 print FEHLER "Erneuter Upload der Datei $zeile\n";
               
 $ftp->put($zeile)|| print FEHLER "Am $datum ist ein Fehler aufgetreten\nKonnte folgende Datei $zeile nicht auf den FTP-Server hochladen. $!\n\n";
               
 }
            }
        }
    }
print FEHLER "Alle Dateien vorhanden.\n";
print $socket "Upload"."\n";
unlink @del_rar;

my $idx = 0;
foreach my $zeile (@safe_rar) {
    ++$idx;
    $ftp->binary() or die "no Binary ", $ftp->message; 
    print FEHLER "Upload der Dateien.\n";
    $ftp->put($zeile) || print FEHLER "Am $datum ist ein Fehler aufgetreten\nKonnte folgende Datei $zeile nicht auf den FTP-Server hochladen. $!\n\n";
    unless($idx % 60) {
        # überprüfe hier ob die letzen 60 pakete oben sind
    }
}
# überprüfe hier ob die letzen x pakete oben sind