$q = 0;
$k1 = 0;
while ($q < @einstellungen_para_wert[3]){
    my $pid = fork() ;
    unless (defined $pid) {
        die "Could not fork $!";
    }
    elsif ($pid < 0){
            open (BATCHDATEI, ">$batch$q$batchformat");
            print BATCHDATEI "\@echo off\n CopasiSE @einstellungen_para_wert[2]@einstellungen_para_wert[0]$q@einstellungen_para_wert[1] --save @einstellungen_para_wert[2]@einstellungen_para_wert[0]$q$random@einstellungen_para_wert[1]";
            print "$batch$q$batchformat\n";
            system ("$batch$q$batchformat");
            wait;
            exit(0);
    }
    else{
        sleep(1);
        $k1++;
        print "$k1\n";
        while ($k1 == $cores){
            for (my $op = $q; $op < ($q + $cores); $op++){
                if (-e "$modelldatei$q$random@einstellungen_para_wert[1]"){
                    $k1--;
                }
            }
            sleep(1);   #Programm pausiert 1 Sek. sonst beansprucht Perl die frei werdenen Ressourcen.
        }
        $q++;
    }
}