Example program

     #!/usr/local/bin/perl -w

     use Gedcom;

     $ged = Gedcom->new(gedcom_file => shift);
     printf "%-40s %s\n", $_->name, $_->get_value("birth date") || "Unknown"
         for $ged->individuals;