sub lines_in_file {
        my $f = shift;
        open FH, $f or die "Can't open $f: $!";
        1 while <FH>;
        $.;
    }