use Win32::ODBC;

$DriverType = "Microsoft Access Driver (*.mdb)"; 
$DSN = "Win32 ODBC --MAOmaoMAOmaoMAO--"; 
$Dir = "c:\\perl\\cgi-bin"; 
$DBase = "mydb.mdb";

Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType, 
    ("DSN=$DSN", "Description=MAO Win32 ODBC Test DSN for perl", 
    "DBQ=$Dir\\$DBase", "DEFAULTDIR=$Dir", "UID=", "PWD=")) 
    or die "ConfigDSN(): Could not add temporary DSN" . 
    Win32::ODBC::Error();

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