use strict;
use GraphViz;
use XML::Twig;

# mkg($xml, $output_file_name)
mkg("@{[<DATA>]}", "orgchart");

sub mkg {
	my ($xml, $file) = @_;
	my $root = XML::Twig->new()->parse($xml)->root;
	my $g = GraphViz->new();
	render($g, $root);
	$g->as_jpeg("$file.jpg");
}

sub render {
	my ($g, $root) = @_;
	my $super = mkname($root);
	$g->add_node($super);
	foreach my $child ($root->children) {
		my $subord = mkname($child);
		$g->add_edge($super => $subord, dir => 'back');
		render($g, $child);
	}	
}

sub mkname {
	$_[0]->att('title') . " (" . $_[0]->att('name')  . ")";
}


__DATA__
<Boss title="CEO" name="Joe">
	<C title="COO" name="Liz">
		<VP title="VP HR" name="Fu"></VP>
		<VP title="VP Sales" name="Ty"></VP>
	</C>
	<C  title="CFO" name="Lo">
		<VP title="VP HR" name="Fu"></VP>
		<VP title="VP Sales" name="Ty"></VP>
	</C>
	<C  title="CTO" name="Gi">
		<VP title="VP HR" name="Fu"></VP>
		<VP title="Sysadmin" name="TJ"></VP>
	</C>
	<C title="Adviser" name="Bob"/>
</Boss>