$SIG{INT} = \&ctrlc;

#$SIG{CHLD} = \&ripZombie;

foreach(@ARGV){
	my $arg=$_;

	unless(defined($arg)){
		die("$!\n") if(help());
		exit 0;	
	}

	if($arg eq '-e' || $arg eq '--erase'){
		 die("$!\n") if(erase());
	}
	elsif($arg eq '-i' || $arg eq '--info'){
		die("$!\n") if(versionInfos());
	}
	elsif($arg eq '-c' || $arg eq '--create'){
		die("$!\n") if(createData());
	}
		elsif($arg eq '-p' || $arg eq '--proceed'){
		die("$!\n") if(continueDataCreation());
	}
	elsif($arg eq '-v' || $arg eq '--verify'){
		die("$!\n") if(verifyData());
	}
	elsif($arg eq '-s' || $arg eq '--search'){
		die("$!\n") if(searchExtInfos());
	}
	elsif($arg eq '-h' || $arg eq '--help'){
		die("$!\n") if(help());
	}
	elsif($arg eq '-x' || $arg eq '--extract'){
		die("$!\n") if(fallbackExtractResults());
	}
	else{
		die("$!\n") if(help());
	}
}


sub createData{
	### Set default sig-handler for ctrl+c ###
	$SIG{INT} = "DEFAULT";
...
	my @a_childs=();
 ... 	
	### Set custom sig handler for ctrl+c ###
	$SIG{INT} = \&ctrlc;
				
	### Begin forking regarding amount of instances ###
	for(my $i=0; $i<$AMOUNT_INSTANCES; $i++){
		my $child=fork();
		
		if($child){
			### parent ###
			push(@a_childs, $child);
		}
		elsif($child == 0){			
			### child ###						
...		
			### Build BerkeleyDB Environment ###
			my $envChild = new BerkeleyDB::Env(
				-Home   => "$WORKDIR" ,
				-Flags  => DB_CREATE| DB_INIT_CDB | DB_INIT_MPOOL)
   			or die "FAILURE: Cannot open environment: $BerkeleyDB::Error\n";
	
			### Tie Hash ###
			our $DB_RESULT = tie %H_RESULT, 'BerkeleyDB::Hash',
				-Filename => "$FILE_RESULT_DB",
				-Flags => DB_CREATE,
				-Env => $envChild 
			or die "FAILURE: Cannot open database: $BerkeleyDB::Error\n";
			
			### Tie Hash for IP-pref-pairs ###
			my $db_prefChild = tie %H_PREF, 'BerkeleyDB::Hash',
				-Filename => "$FILE_PREF_DB",
				-Flags => DB_CREATE,
				-Env => $envChild 
			or die "FAILURE: Cannot open database: $BerkeleyDB::Error\n";
			
### only copies some files to certain positions ###		
			system("...");

			### Query responsible RIR and extract information ###
			
			while(keys(%H_PREF) > 0){				
				### Lock hash ###
				my $lock=$db_prefChild->cds_lock();
				
				### extract random key and mark it ###
				my $key="";
				my $value="";
				
				do{
					$key=(keys %H_PREF)[rand keys %H_PREF];
					$value=$H_PREF{$key};
				}while($value =~ m/^inuse\_/);
				
				$H_PREF{$key}="inuse\_$value";
				
				
				### Unlock hash ###
				$lock->cds_unlock();
				
### this funktion does only some regex work and system-calls, at begin and end the var set by sig handler is checked ###
				handlePref($key,$value);

				### Check if SIG{INT} (CTRL+C) was pushed ###
				if($CHECK_CTRL == 1 ){
					$lock=$db_prefChild->cds_lock();
					$H_PREF{$key}=$value;			
					$lock->cds_unlock();
					
					last;
				}
				
				delete($H_PREF{$key});
			}

			warn("$!\n") if(cleanUpChild($childPid));

			
			### Clean Up BerkeleyDB Env and untie ##
			undef $DB_RESULT;
			untie %H_RESULT;
			undef $db_prefChild;
			untie %H_PREF;
			
			exit 0;
		}
		else{
			return 1, warn("FAILURE: Could not fork! $!\n");
			
		}
	}
	
	
	### Wait/catch all childs ###
	foreach(@a_childs){
		while(){
			my $pid=waitpid(-1, WNOHANG);
			last if($pid <= 0);
		}
		print "Child ended successfully (PID: $_)!\n";
	}

#foreach(@a_childs){
#	wait();
#    waitpid($_,0);
#}
			
			
...
	
	return 0;
}

### sig handler for ctrl-c ###
sub ctrlc{
	$SIG{INT} = \&ctrlc;
	
	### Set global check variable to 1 ###
	$CHECK_CTRL=1;
	
	print("! Please be patient, programm is existing but will end all current queries and this could take some minutes !\n");
	
	return 0;
}


### reaper but not in use ###
sub ripZombie{
	my $pid;
    
    while ((my $pid = waitpid(-1, WNOHANG)) > 0) {
    	### If you want to do sth with your reaped child pids ###
        ;
    }
    $SIG{CHLD} = \&ripZombie;
}