# get a temp file name 
do { $name = tmpnam() }
	until sysopen(FH, $name, O_RDWR|O_CREAT|O_EXCL);