#!/bin/perl -w

  use strict;

  use Gedcom;

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

  for my $i ($ged->individuals)

  {

      for my $n ($i->get_value("note"))

      {


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

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

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

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

      }

  }