Select Code to Download

$ perl -d pm_1202351.pl

...

main::(pm_1202351.pl:4):        my %son_father;
  DB<1>

  DB<1> c 41

...
main::(pm_1202351.pl:41):         if ($choice eq 'a'){
  DB<2> p $choice
g

  DB<3> n
main::(pm_1202351.pl:44):             } if (exists $son_father{$name1}
+) {
  DB<3>

  if ($choice eq 'a'){
    print "Enter a male name: ";
...
              next;
  }

  if ($choice eq 'a'){
    print "Enter a male name: ";
...
          next;
    }
  }

$ perl -d pm_1202351.pl

...
g
  DB<3> n
main::(pm_1202351.pl:54):         if ($choice eq 'd') {

  DB<3> n
main::(pm_1202351.pl:57):             } if (exists $son_father{$name2}
+) {

  DB<1> h
List/search source lines:               Control script execution:
...
  y [n [Vars]]   List lexicals in higher scope <n>.  Vars same as V.
  e     Display thread id     E Display all thread ids.
For more help, type h cmd_letter, or run man perldebug for all docs.

  DB<3> p "FOO! <$choice>\n"
FOO! <g>

  DB<4>

  DB<4> x %son_father
0  'Bruce'
...
7  'Doug'
8  'Thomas'
9  'Evan'

  DB<6> v 50
47:               print "Add a father: ";
...
54:       if ($choice eq 'd') {
55:         print "Enter a male name: ";
56:         chomp (my $name2 = ucfirst lc <STDIN>);