Select Code to Download

perl Test_1..pl >"C:/Users/Joe/Documents/Genealogy/birdt.ged.txt"

 
#!/usr/bin/perl
use strict;
...
my $i=0;                                # stepping through the array $
+count = 5174
for ($i= 0; $i<$count; $i=$i+1)
{print "$i    $ged[$i]\n"; }