I don't know if any of the renderers use your algorithm, but have you looked at Graphviz? There is even a perl binding.

Update: Did you find the bioperl module Bio::Tree::Draw::Cladogram? The bioperl website offers an interesting howto on trees.