#================================================
sub Button_EVILS_Click {				# Button Klick
	$count = 0;
	my $pid = undef;
	if(-e  $config{"SRS"}){#
		}else{&errmsg;}
	open(FILE, "$config{\"SRS\"}");
	my @sfile = <FILE>;
	close FILE;
	foreach $x (@sfile){ $pbmax++; }
	$Main->RSPB->SetRange(0, $pbmax);
	$x = undef;
	foreach $x (@sfile){
		chomp $x;
		if(defined($pid = fork)){
			if($pid){
				last;
			} else {
				$count++;
				$Main->RSPB->SetPos($count);
			open(README, "meine.exe $x 1 |");
			my @res = <README>;
			close README;
			$Main->RichEdit->Text("$x\n\n@res");
			my @news = split / /,$res[6];
			if($news[0] eq "ok"){
				$List_rs->AddString("$x");
				}
			}
		}
	}
}
#================================================