sub ccmexec_nodie
{
	my $command = $_[0];
	
	myprint(2,"\t\t\tccmexec: $command\n");
	
	my ($mystdin,$mystdout,$mystderr);
	my $pid = open3($mystdin,$mystdout,$mystderr,$command);
	
	my $myresult = "";
	while(<$mystdout>){
		$myresult = "$myresult$_";
	}
	
	return $myresult;
}


sub myprint{
	my $level = $_[0];
	my $string = $_[1];
	
	if($level <= 1){
		print $string;
	}		
}