open(UPD, "<$data_file") or die "Cannot open $data_file (5Z).";
flock UPD,2;
seek(UPD,0,0);
@upd = <UPD>;
close(UPD);
chomp(@upd);

foreach $line (@upd)   {
	($d_line) = split (/\n/, $line);