in reply to Maintaining diagrams in a Perl way?

GraphViz::DBI is what you want. Give it a try:
use GraphViz::DBI;
print GraphViz::DBI->new($dbh)->graph_tables->as_png;

[download]
Boris

In Section Seekers of Perl Wisdom