#!"c:\documents and settings\user\perl\bin\perl"

use DBI;
use strict;

my $adb = 'testdb.mdb';
my $driver = 'driver=Microsoft Access Driver(*.mdb);dbq=';
my $dstring = $driver . $adb;

my $dbh = DBI->connect("DBI:ODBC:$dstring","","");
#       || die; # "$DBI::errstr";

my @avail = DBI->available_drivers;
print "--$_--\n" foreach(@avail);

my %drivers = DBI->installed_drivers();

while (my($k,$v)=each(%drivers))
{
        print "Driver:$k\t-\t$v\n";
}

$dbh->disconnect;

##</code><code>##

DBI connect('driver=Microsoft Access Driver(*.mdb);dbq=testdb.mdb','',..
.) failed: [Microsoft][ODBC Driver Manager] Data source name not found and no de
fault driver specified (SQL-IM002)(DBD: db_login/SQLConnect err=-1) at C:\temp\t
emp.pl line 14
--DBM--
--ExampleP--
--File--
--Gofer--
--ODBC--
--Proxy--
--SQLite--
--Sponge--
Driver:ODBC     -       DBI::dr=HASH(0x1a4d5c4)
Can't call method "disconnect" on an undefined value at C:\temp\temp.pl line 27.