#!/usr/bin/perl -w
package conectarsb;

use strict;
use DBI;
use DBD::Sybase;

# variables a editar
my $db_user = "X";
my $db_pass = "X";
my $host_name = "172.21.50.55";
my $db_name = "iMapAlarmDB";
my $q_string = "dbi:Sybase=$host_name;database=$db_name";
sub connect
{
return (DBI->connect($q_string, $db_user, $db_pass,{PrintError => 0, RaiseError => 1}));
}
1;

use lib "conectarsb";
use conectarsb;
use DBI;
use DBD::Sybase;

my($dbh,$sth,@data);
$dbh =conectarsb->connect();
$sth = $dbh->prepare('SELECT * FROM tabla WHERE edad = ?') or die("Couldn't prepare statement: " . $dbh->errstr);
$sth->execute("19") or die("Couldn't execute statement: " . $sth->errstr);
while(@data = $sth->fetchrow_array()){
print "Si se pudo"; 
}
$sth->finish;
print "$sth/n";
$dbh->disconnect;

my $q_string = "dbi:Sybase:host=$host_name;database=$db_name";

DBI connect('host=172.21.50.50;database=iMapTopoDB','X',...) failed: (no error string) at /root/workspace/Servidor/conectarsb.pm line

DBI->connect($q_string, $db_user, $db_pass,{PrintError => 0, RaiseError => 1}));