#!/usr/bin/perl

package ConectarDB;

use strict;
use DBI;

# variables BD
my $db_user = "example";
my $db_pass = "example";
my $host_name = "example";
my $db_name = "example";

# vars
my $q_string = "DBI:oracle:host=$host_name;database=$db_name";
sub connect{
return (DBI->connect ($q_string, $db_user, $db_pass, {PrintError => 0, RaiseError => 1}));
}
1;