#!/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