#!/usr/bin/perl
use DBI;

$ENV{'FREETDSCONF'} = '/home/test/config/freetds.conf';
$ENV{'SYBASE'} = '/home/test/sql_server_15_0-64bit';

my $SERVER = 'TEST';
my $DB = 'test';
my $USER = 'admin';
my $PASSWD = 'admin';
    	
$DB_Ref = DBI->connect("DBI:Sybase:server=$SERVER;database=$DB",
                        "$USER",
                        "$PASSWD",
                        {syb_err_handler => \&syb_err_h})
                or die "Couldn't connect to $DB : " . DBI->errstr;
$DB_Ref ->{RaiseError} = 1;
$DB_Ref ->{PrintError} = 1;
$DB_Ref ->do("set dateformat ymd");

## The table testTable is over 30GB
## The line below eats up all RAM on the server
my $testArray = $DB_Ref->selectall_arrayref('select * from testTable');

## Do something on each row here