open WRITER, ">$file" or die "Can't open: $!";
flock(WRITER, LOCK_EX);