sub executeJcas(){

	my @clipListFromInputFile = @_;
	
	# Execute the script and generate log and error files
	local(*HIS_IN, *HIS_OUT, *HIS_ERR);
	my $cmd = "export LD_LIBRARY_PATH=$path;$javapath -jar $jcassPath";
	my $childpid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $cmd);
	print HIS_IN "po $authenticationString\n";
	if($mode eq "set"){
		foreach $clipId (@clipListFromInputFile){
			print HIS_IN "co $clipId\n";
			print HIS_IN "clipSetRetentionHold true $retentionhold_Id\n";
			print HIS_IN "cw\n";
			print HIS_IN "cc\n";
		}	
	}else{
		foreach $clipId (@clipListFromInputFile){
			print HIS_IN "co $clipId\n";
			print HIS_IN "clipSetRetentionHold false $retentionhold_Id\n";
			print HIS_IN "cw\n";
			print HIS_IN "cc\n";
		}
	}	
	print HIS_IN "pc\n";
	print HIS_IN "quit\n";
	close(HIS_IN);            # Give end of file to kid.
	my @outlines = <HIS_OUT>;    # Read till EOF.
	my @errlines = <HIS_ERR>;    # XXX: block potential if massive
	close(HIS_OUT);
	close(HIS_ERR);
	waitpid($childpid, 0);
	if ($?) {
		print STDERR "Unable to execute $jcassPath: @errlines";
		return 1;
	}
	return(\@outlines, \@errlines);
	
}