my $a = "Identificação do paciente";print $a,"\n";

##</code><code>##

	my $a = __t("Patient Id");print $a,"\n";


##</code><code>##

	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;