flock(FILE, 2) || die "can't print to $tmp_file: $!";