# Feel free to send me better code. I worked on this until it
# gave me a headache and it worked passably, and then I
# stopped.

Source: Direct link to the source code
Software: Tree::DAG_Node
Programming language: Perl