It seems to be Dominus day today... even if it's Tuesday! Regarding this fragment:

 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";
[download]

you might benefit from these slides.