Help for this page

Select Code to Download


  1. or download this
      if ($choice eq 'a'){
    print "Enter a male name: ";
...
              $son_father{$name1} = {$add_dad};
              next;
  }
  2. or download this
      
  if ($choice eq 'a'){
    print "Enter a male name: ";
...
    $son_father{$name1} = {$add_dad};
    next;
  }
  3. or download this
      if ($choice eq 'a'){
    print "Enter a male name: ";
...
    }
    next;
  }