$q = 0;
my $k1 = 0;
my $cores = 2;
my $test1;
while ($q < @einstellungen_para_wert[3]){
    for (1..$cores){
        my $pid = fork() ;
        unless (defined $pid) {
            die "Could not fork $!";
        }
        elsif ($pid){
            print "\t$q\n";
            open (BATCHDATEI, ">$batch$q.bat");
            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]";
            system ("$batch$q$batchformat");
            exit (0);
        }
        else{
            print "$q Simulation wird berechnet \q = $q\n";
            $q++;
        }
    }
}