#!/usr/bin/perl
open(MYFILE, "C:/Users/Jill/Documents/Genealogy/birdt.ged") || die;
@MyGed=birdt.ged;
$count=@MyGed;
print "10th record :  $MyGed[10]\n";
print "No. of records : $count \n";