while ( $MYNAME eq '' )
	{
		menu_header();
		print "Screen 2 of 4\n";
		print "Choose the LOGICIAL ENVIRONMENT to work on: \n\n";
		@Unique_NAMES_Array=();
		for $X ( 0 .. $#ConfigFileArray) # make array of logicial names based on APP choice
		{
			if ($ConfigFileArray[$X][0] eq $CHOSENAPP)
			{ push (@Unique_NAMES_Array,$ConfigFileArray[$X][1]);}
		}
	
		print "\tE) EXIT\n";
		print "\tA) ALL envs listed below\n";
		print "\tC) CLEAR chosen envs\n";
		print "\tD) I'm DONE chosing, proceed to next menu\n\n";
		for $Z ( 0 .. $#Unique_NAMES_Array)
		{
			print "\t$Z) $Unique_NAMES_Array[$Z]\n";
		}
	
		sysread(STDIN,$MYNAME,3); chomp ($MYNAME);
		
		print $clear_string;	
		if ($MYNAME =~ '^[eE]$') {action_info ("EXIT");exit 1;}
		elsif (($MYNAME =~ /^[0-9]*$/) && ($MYNAME <= $#Unique_NAMES_Array)) { action_info ($Unique_NAMES_Array[$MYNAME]); $CHOOSEN_LOGICIAL_NAME_Hash{$Unique_NAMES_Array[$MYNAME]}++; $MYNAME=''; }	
		elsif ($MYNAME =~ '^[cC]$') { action_info ("CLEAR"); delete @CHOOSEN_LOGICIAL_NAME_Hash {keys %CHOOSEN_LOGICIAL_NAME_Hash}; $MYNAME=''; }
		elsif ($MYNAME =~ '^[aA]$') { action_info ("ALL"); foreach $item(@Unique_NAMES_Array) { $CHOOSEN_LOGICIAL_NAME_Hash{$item}++; }; $MYNAME=''; }
		elsif ($MYNAME =~ '^[dD]$') {action_info ("DONE");if (! %CHOOSEN_LOGICIAL_NAME_Hash){print "\n\nERROR: you must choose an ENV to proceed\n\n";$MYNAME='';}}
		else {action_info ("Invalid choice");$MYNAME='';}
	}
}


#### get the commands from the array ####
sub get_commands
{
	# copy for each env from Config file array the commands to use for childs process into new 2 D array
	foreach $env_item (keys %CHOOSEN_LOGICIAL_NAME_Hash)
	{
		if ($REPORT >=  1){print " $env_item\n ";}
		for $X ( 0 .. $#ConfigFileArray ) 
		{ 
			if ( ($ConfigFileArray[$X][1] eq $env_item) && ($ConfigFileArray[$X][0] eq $CHOSENAPP) )
			{
				if ($CHOSENACTION eq 'STOP')
				{ push (@commands_array,[$env_item,$ConfigFileArray[$X][2],$ConfigFileArray[$X][3],$ConfigFileArray[$X][4],$ConfigFileArray[$X][5]]); }
				elsif ($CHOSENACTION eq 'START')
				{ push (@commands_array,[$env_item,$ConfigFileArray[$X][2],$ConfigFileArray[$X][3],$ConfigFileArray[$X][6],$ConfigFileArray[$X][7]]); }
				elsif ($CHOSENACTION eq 'CHECK')
				{ push (@commands_array,[$env_item,$ConfigFileArray[$X][2],$ConfigFileArray[$X][3],$ConfigFileArray[$X][8],'']); }
			}
		} 
	}

	if ($DEBUG >=  2){
		for $X ( 0 .. $#commands_array ) 
		{print "$commands_array[$X][0] $commands_array[$x][1] $commands_array[$X][2] $commands_array[$X][3] $commands_array[$X][4]\n";}
		}
}

#### FORK the child processes and run the commands ###
sub fork_child_action
{
	if ($REPORT >=  1){print "\n\nForking the commands now....\n";}
	for $X ( 0 .. $#commands_array ) 
	{
		if ($cpid != 0)#this prevents endless loop
		{
			$cpid=fork(); # fork a new process identical to this one, and start eexcuting from here
			
			if ($cpid < 0) # error
			{ 
				print "ERROR: Unable to Fork! exit 1\n"; exit 1;
			}
			elsif ($cpid > 0) # fork returns the new process id of the child, the parent knows the childs pid now
			{ 
				if ($REPORT >=  1){print " $env_item childs process id is $cpid\n"; }

				#PUT my process ID into the array
				$commands_array[$X][5]=$cpid;
			}
			elsif ($cpid == 0) # in the child process, the pid is 0, so i'm a child, continue to process
			{
				#GET the valuse from array
				$env=$commands_array[$X][0];
				$host=$commands_array[$X][1];
				$wrk_account=$commands_array[$X][2];
				$command1=$commands_array[$X][3];
				$command2=$commands_array[$X][4];

				if ($DEBUG >=  2){print "$env CHILD FORKING HERE\n"; print "FORK COMMANDS: $env $host $wrk_account $command1 $command2\n";}
				
				open(FILEOUT, ">>".$LOG."/Emergency_".$env."_".$host."_".$wrk_account.".log") || die("Could not open log file for output");
				$TIMESTAMP= getTimeStamp();
				print FILEOUT "BEGIN $CHOSENACTION $TIMESTAMP $env $host $wrk_account $command1, $command2\n";

				if ( $command1 )
				{
				
					if ($REPORT >=  1){print "Issuing command1 $command1  TO $env $host $wrk_account \n";}
					
					open (STDOUT, ">>".$LOG."/Emergency_".$env."_".$host."_".$wrk_account.".stdout.log") || die("Could not open log file for output");
					open (STDERR, ">>".$LOG."/Emergency_".$env."_".$host."_".$wrk_account.".stdout.log") || die("Could not open log file for output");
					system ("ssh \-o \"StrictHostKeyChecking=no\" \-o 'BatchMode yes' \-q $wrk_account\@$host \"$command1\"") ;
					$exit_status=$?;
					close (STDOUT);
					close (STDERR);