#!/usr/local/bin/perl
#
use DBI;

my $DB_Server = "DBServer";
my $DB_User = "gues";
my $DB_Pass = "test";

print "DB_Server:[$DB_Server] DB_User:[$DB_User] DB_Pass:[$DB_Pass]";

BEGIN { $ENV{SYBASE} = '/usr/local/freetds/'; }

my $dbh = DBI->connect("dbi:Sybase:server=$DB_Server", $DB_User, $DB_Pass, {PrintError => 0});

die "Unable for connect to server $DBI::errstr"
    unless $dbh;

my $rc;
my $sth;

$sth = $dbh->prepare("select \@\@servername");
if($sth->execute) {
    while(@dat = $sth->fetchrow) {
		print "@dat\n";
    }
}

$dbh->disconnect();