#!/usr/bin/perl

use strict;

use DBI;

use DBD::Sybase;
my $user="abc";
my $auth='defv';
my $srvr = 'abc.cde.corp.org\XYZ';
# Connect to the SQL Server Database
my $dbh = DBI->connect("dbi:Sybase:server=${srvr};database=TEST", $user, $auth,{PrintError => 0,RaiseError => 1, ShowErrorStatement => 1,});

my $sql = "SELECT USER";
my $sth = $dbh->prepare( $sql );
$sth->execute();

my @data;

if($sth->execute) {
   while ( @data = $sth->fetchrow ) {
        print "@data\n";
   }
}
$sth->finish();
undef $sth;
$dbh->disconnect();