) or die "Can't update $file: $! ";
shift @lines;
(tied @lines)->flush;
untie @lines;