#!/usr/bin/perl -w
use lib "/tmp/ejemplo/DBI-1.37";
package ConectarDB;
use strict;
use DBI;
#------------------------------
my $db_user = "t";
my $db_pass = "t0";
my $host_name = "localhost";
my $db_name = "iMapAlarmDB";
#------------------------------
my $q_string = "DBI:sybase:host=$host_name;database=$db_name";
sub connect
{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}
1;