use WIN32::ODBC; 
my $db = new Win32::ODBC("SOMEDSN") or die "Can't create connection to DSN: $!\n"; 
my @tables = $db->TableList() or die "Can't get tables: $!\n"; $db->Close(); 
print join("\n", @tables);