perl Test_1..pl >"C:/Users/Joe/Documents/Genealogy/birdt.ged.txt"