flock($fh, LOCK_EX) or die "cannnot lock file - $!\n";
			print $fh @out;
			#print $fh $out[0]; #Date
			#print $fh $out[1]; #Site
			#print $fh $out[2]; #CTR
			#print $fh $out[3]; #IP 
			#print $fh $out[4]; #Temperature
flock($fh, LOCK_UN) or die "cannnot unlock file - $!\n";