Help for this page

Select Code to Download

Select or download this
```
./myscript |wc -l
```

Select or download this

my $file_in = "C:/Users/Joe/Documents/Geneaology/birdt.ged";
open my $FILE, '<', $file_in or die $!;
...
    print "$.\t$_";
}
warn "no. of records read: $.\n";