use graphviz; my $plot = GraphViz->new( layout => 'dot', directed => 0, rankdir => 'TB' ); # dot = directed plot as output, # better than 'neato' for drawing trees