local (*HIS_IN, *HIS_OUT, *HIS_ERR);
my $pid = open3(*HIS_IN, *HIS_OUT , *HIS_ERR, "cleartool setcs $CS_FILENAME");
		while(<HIS_OUT>){
			print "$_";
                        if (<HIS_ERR>){
                           print HIS_IN "yes\n";
                        }	
		}
		close HIS_IN;
		close HIS_OUT;
		waitpid($pid,0);