use strict;
use warnings;
use DBI;
use GraphViz::DBI;
my $dbh = DBI->connect("DBI:mysql:test", "user", "password");
GraphViz::DBI->new($dbh)->graph_tables->as_jpeg("dbi.jpg");
$dbh->disconnect;