#!/usr/bin/perl -w
use DBI;
use DBD::ODBC;
my($driver) = "Firebird/InterBase(r) driver"; # имя ODBC драйвера, скачан с официального сайта Firebird
my($server) = "ab"; # имя сервера
my($user) = "sysdba"; # логин
my($password) = "masterkey"; # пароль
my($database) = 'g:\np_g\ab20.gdb'; # путь к базе данных (ЗДЕСЬ ОШИБКА)
my($connexion) = "ODBC";
my(%DSN) =
(
    ODBC => {
        dsn => "Driver={$driver};Server=$server;Database=$database;uid=$user;pwd=$password;",
        heading => 'Using ODBC Driver Manager via DBI::ODBC',
        mode => 'ODBC',
    }
);
my($connect) = "dbi:$DSN{$connexion}{'mode'}(RaiseError=>0, PrintError=>0, Taint=>0):$DSN{$connexion}{'dsn'}";
my($dbh) = DBI->connect($connect, { PrintError => 0, AutoCommit => 0 }) || die("Can't connect: $DBI::errstr")