Getting all names in mdb

Hello,

I'm using .mdb file with DBI/DBD::ODBC.

my $dbh = DBI->connect("dbi:ODBC:test", "", "",
{RaiseError => 1, AutoCommit => 0, LongReadLen => 409600})
or die "$DBI::errstr";

Anyone will teach me how to get all names of tables
(in test.mdb)?

Regards,
Hirosi Taguti
.