my $loc_dsn = <<DSN;
dbi:InterBase:dbname=/home/DB/TEST.FDB;
ib_dialect=3;
DSN

        $gl_dbh=DBI->connect($loc_dsn,"******","**********", {
			PrintError => 1,						
			RaiseError => 1							
			}
		) or die "Can't connect to database" . DBI->errstr;