Might I suggest GraphViz for this? At a glance, GraphViz figures out how to draw a graph nicely. Heck, there's even a module for it. What's nice about it is that is that you provide it with the relationships, and it draws the picture for you in a format of your choosing. Here's some sample code (untested):

#!/usr/bin/perl -w

use strict;
use GraphViz;

my $graph = GraphViz->new();
$graph->add_edge("Big Cheese" => "Vice Chair One");
$graph->add_edge("Big Cheese" => "Vice Chair Two");
$graph->add_edge("Vice Chair One" => "Manager Three");
$graph->add_edge("Vice Chair Two" => "Manager Four");
# etc
$graph->as_ps("outfile.ps"); #because I like postscript
[download]

thor