The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use DBI;
# $Id$

print join(', ', DBI->data_sources("ODBC")), "\n";
print $DBI::errstr;
print "\n";