in reply to Graphical Hierarchical Tree

You should print something like: 
    print '--'x$indent, $subject;

[download]

In Section Seekers of Perl Wisdom