Select Code to Download

C:\>perl dchart.pl royal.ged "Elizabeth"
1 [I0001] Elizabeth Alexandra Mary Windsor (April 21st, 1926)
...
                3 [I0035] (male)
        2 [I0008] Andrew Albert Christian Edward  (February 19th, 1960
+)
        2 [I0009] Edward Antony Richard Louis  (March 10th, 1964)

use strict;
use Gedcom;
...
    my $i = shift;
    return $i->given_names . ' ' . $i->surname;
}