Select Code to Download

sub how_many_lines
{
    open I, 'users.dat'
...
    $lines;       # return the count to the caller.

}