Select Code to Download

#!/usr/bin/env perl -l

...
Z X
W root
B A

$ pm_find_common_ancestors.pl D E F
Nodes for this run: D E F
Lowest common ancestor: C

$ pm_find_common_ancestors.pl X Y N O P
Unknown node: N
...
Unknown node: P
Nodes for this run: X Y
Lowest common ancestor: X

 pm_find_common_ancestors.pl X N O P
Unknown node: N
...
Unknown node: P
Nodes for this run: X
Need at least two nodes to process!

$ pm_find_common_ancestors.pl G H X Y
Nodes for this run: G H X Y
No common ancestor!

$ pm_find_common_ancestors.pl N O P
Unknown node: N
Unknown node: O
Unknown node: P
No valid nodes to process!