open(GERMS, "| $germline") || die "Could not call germline!\n";
print GERMS "1\n";
print GERMS "$map\n";
print GERMS "$ped\n";
print GERMS "out";
close GERMS;