open FILE, '>', "$data_reg.tmp" or die "Can't open data_reg file for reading: $
+!";    
 flock (FILE, 2) or die "Can't lock data_reg.tmp file for writing";