my $rv = Win32::ODBC::ConfigDSN(ODBC_ADD_DSN, $DriverType,("DSN=$DSN", "Description=MAO Win32 ODBC Test DSN for Perl", "DBQ=$Dir", "DEFAULTDIR=$Dir", "UID=", "PWD="));
if (not $rv) {
  # Log mit deiner eigener Funktion schreiben
  LogMe ( "ConfigDSN(): Could not add temporary DSN" . Win32::ODBC::Error() );
  # hier weiterer Code was in deiner App geschehen soll bei Fehlern
}

$db=new Win32::ODBC($DSN);
if (not $dbh) {
  LogMe ( "couldn't ODBC $DSN because " . Win32::ODBC::Error() . "\n" );       
  # hier weiterer Code was in deiner App geschehen soll bei Fehlern
}