use strict;
use warnings;
use Win32::ODBC; 
use Win32::OLE;  
use Win32::OLE::Const 'Microsoft DAO';

my $db = "\\\\myinfoserver\\myaccess2000.mdb";
my $dsn = "tes";

$db = new Win32::ODBC($dsn) || die "Cant open: $!";
print "Connecting to database source $dsn\n";
$db->Close();
exit;