my $ged = Gedcom->new(grammar_file => "gedcom-5.5.grammar",
                        gedcom_file  => "file1.ged");
  my $ge2 = Gedcom->new(grammar_file => "gedcom-5.5.grammar",
                        gedcom_file  => "file2.ged");
#
# copy individuals
#
  for ($ge2->get_individual) {
       $indi = $ged->add_individual();
       $indi = $_;
       }
   $ged->write("new.ged");
   exit;