cat /opt/sybase/OCS-15_0/lib > /etc/ld.so.conf.d/sybase.conf
/sbin/ldconfig

#!/usr/bin/perl -w
 
# import modules
use strict;
use DBI;
use Data::Dumper;
 
# connection details
my $database = 'master';
my $server = 'VMCENTOS43';
my $username = 'testuser';
my $password = 'testpwd';
 
# connect to sybase
my $dbh;
eval {
	$dbh = DBI->connect("DBI:Sybase:server=$server;database=$database",
		$username, $password, {RaiseError => 1, AutoCommit => 0});
};
 
# check for errors
if ($@) {
	print DBI::errstr;
}
else {
	# limit results
	$dbh->do('set rowcount 5');
 
	# prepare and execute sql
	my $sth = $dbh->prepare('select * from spt_values');
	$sth->execute;
 
	# loop through results, printing to debugger
	while (my $data = $sth->fetchrow_hashref()) {
		print Dumper $data;
	}
 
	# finish statement and disconnect from db
	$sth->finish;
	$dbh->disconnect;
}