#!perl use strict; use DBI; my $dbh = DBI->connect('DBI:mysql:test:localhost','','') or die $DBI::errstr; print $dbh->tables;