Select Code to Download

use Win32::OLE;

...

$Conn = Win32::OLE->new('ADODB.Connection'); 
$Conn->Open($ConnStr);

use Win32::ODBC;

...

    $db=new Win32::ODBC($DSN) or die "couldn't ODBC $DSN because", 
    Win32::ODBC::Error(), "\n";