DB<1> c 41

         SON_FATHER Hash Operations

a- Add a son-father pair
d- Delete a son-father pair
e- exit the program
g- Get a father
o- Output the hash neatly
r- Replace a father
x- get a grand father


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