use GraphViz::DBI; print GraphViz::DBI->new($dbh)->graph_tables->as_png; [download]
In reply to Re: Maintaining diagrams in a Perl way? by borisz in thread Maintaining diagrams in a Perl way? by neilwatson