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


##</code><code>##


select ATT_RECORD_NAME_TXT from TBL_TEST_LEAK; 
Handle stop: 52407
Count difference: 1
DBD start: 52407
select ATT_RECORD_NAME_TXT from TBL_TEST_LEAK; 
Handle stop: 52408
Count difference: 1
DBD start: 52408
select ATT_RECORD_NAME_TXT from TBL_TEST_LEAK; 
Handle stop: 52409
Count difference: 1
DBD start: 52409
select ATT_RECORD_NAME_TXT from TBL_TEST_LEAK; 
Handle stop: 52410
Count difference: 1