Select Code to Download

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

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

    my $loc_dsn = <<DSN;
dbi:InterBase:dbname=/home/DB/TEST.FDB;
...
            RaiseError => 1                            
            }
        ) or die "Can't connect to database" . DBI->errstr;