connecting to sybase DB in perl without DBI - sql

Question

I have tried the following script to connect to the DB.
This way works in oracle,but i am not sure why it is not working for Sybase.
#!/usr/bin/perl
use strict;
use warnings;
my $result = qx { isql -Uxx -Pxxxxxxx -Dxxxxx <<EOF
select count(*) from XXX;
exit;
EOF
};
print "result is :";
print $result;
print "\nbye bye\n";
I tried to connect to sybase DB without DBI.
Please dont tell me to use DBI.even i have know that we can use DBI for this.but unfortunately DBI is not installed here in my server and i am not the admin where i have a authorization to install modules for perl.what ever given to me i have to fully use it. but thats an off topic here.
I repeat the question:
how to connect to sybase DB from perl without using DBI?
The output of the above script is :
> temp.pl
result is :
bye bye
when i manually execute the same thing:
> isql -Uxx -Pxxxxxxxx -Dxxxxx
1> select count(*) from XXX
2> go
-----------
26
(1 row affected)
1> exit
>

Answer 1

I got the solution:
it is because of the semicolon and the go statement.I modified the script as below and its working now.
#!/usr/bin/perl
use strict;
use warnings;
my $result = qx { isql -Uxx -Pxxxxxxx -Dxxxx <<EOF
set nocount on
select count(*) from XXX
go
exit
EOF
};
print "result is :";
print $result;
print "\nbye bye\n";