use WIN32::DBIODBC;
my $db = Win32::DBIODBC->new ..................