my $tmpParamFileName;
my $tmpParamFileHandle;

sub getTempParamFile(){
	if(!defined $tmpParamFileHandle){
		($tmpParamFileHandle, $tmpParamFileName)=tempfile(UNLINK=>1);
	}

	return $tmpParamFileHandle;
}

sub getTempParamFileName(){
	if(!defined $tmpParamFileName){
		($tmpParamFileHandle, $tmpParamFileName)=tempfile(UNLINK=>1);
	}

	return $tmpParamFileName;
}