есть 2 модуля доступа - DBI:DBD и Sybperl

DBI - www.cpan.org

#!/usr/local/bin/perl
use DBI;
$server0 = "dbi:Sybase:server=orc";
$user = "sa";
$passwd = "";
#
$dbh0 = DBI->connect($server0, $user, $passwd);
$dbh0->do('use mybase');
#
$sth0 = $dbh0->prepare('select count(*) from mytable');
$sth0->execute;
#
do {
while($d = $sth0->fetch) { print("$d->[0]\n"); }
} while($sth0->{syb_more_results});
#
$rc = $dbh0->disconnect;

SYBPERL - там же

#!/usr/local/bin/perl
use Sybase::CTlib;
$uid = 'sa';
$pwd = '';
$sr0 = 'orc';
#
$X0 = Sybase::CTlib->ct_connect($uid, $pwd, $sr0);
$X0->ct_sql("use prepay");
#
$sql = "select count(*) from mytable";
$X0->ct_execute($sql);
while(($rc = $X0->ct_results($restype)) == CS_SUCCEED) {
next if($restype == CS_CMD_DONE || $restype == CS_CMD_FAIL || $restype == CS_CMD_SUCCEED);
while(@dat = $X0->ct_fetch) {
print "@dat\n";
}
}
#