use GraphViz::DBI;
print GraphViz::DBI->new($dbh)->graph_tables->as_png;