#!/bin/perl -w

use strict;

use Gedcom;

my $ged = Gedcom->new(shift);

$ged->resolve_xrefs;

for my $i ( $ged->individuals )

{

    for my $n ( $i->note )

    {

        print "========================================\n";

        print $i->name, "\n";

        if (ref $n)
        {
           print $n->get_value, "\n";
        }
        else
        {
           print "$n\n";
        }

        #print "========================================\n";

    }

}