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;

1 HEAD
1   SOUR PAF 2.2
2     VERS 2.2
1   DEST PAF
1   DATE Friday, 20th November 1992
1   FILE ROYALS.GED
1   CHAR ANSEL
1   GEDC
2     VERS 5.5
2     FORM LINEAGE-LINKED
1   SUBM @SUBM1@

0 @SUBM1@ SUBM
1   NAME Denis R. Reid
1   RIN 1

0 @I1@ INDI
1   NAME Edward_VII  /Wettin/
1   TITL King of England
1   SEX M
1   BIRT
2     DATE Tuesday, 9th November 1841
2     PLAC Buckingham,Palace,London,England
1   DEAT
2     DATE Friday, 6th May 1910
2     PLAC Buckingham,Palace,London,England
1   BURI
2     DATE Friday, 20th May 1910
2     PLAC Windsor,Berkshire,England
1   FAMS @F2@
1   FAMC @F1@
1   RIN 2
0 @I2@ INDI
1   NAME Alexandra of_Denmark "Alix"//
1   TITL Princess
1   SEX F
1   BIRT
2     DATE Sunday, 1st December 1844
2     PLAC Yellow Palace,Copenhagen,Denmark
1   DEAT
2     DATE Friday, 20th November 1925
2     PLAC Sandringham,,Norfolk,England
1   BURI
2     PLAC St. George Chap.,Windsor,Berkshire,England
1   FAMS @F2@
1   FAMC @F24@
1   RIN 3

0 @F1@ FAM
1   CHIL @I1@
1   DIV N
1   MARR
2     DATE Monday, 10th February 1840
2     PLAC Chapel Royal,St. James Palace,England
1   RIN 93

0 @F2@ FAM
1   HUSB @I1@
1   WIFE @I2@
1   MARR
2     DATE Tuesday, 10th March 1863
2     PLAC St. George Chap.,Windsor,,England
1   RIN 94

0 TRLR