my $loc_dsn = <<DSN;
dbi:ODBC:Driver=Firebird;Dbname=/home/image/Documents/Endoscopia/DB/newEndo.fdb;
ib_dialect=3;
DSN