#!"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;