Select Code to Download

#!/usr/bin/env perl

...

print "*** All ancestries ***\n";
dd \%tree;

*** All parents ***
[
...
             { cmd => "root", pid => 0, ppid => 0 },
           ],
}