shell - Perl code to connect to sybase DB throwing an Informational error -

i have perl code connect sybase db. when code run, code connects sybase. after successful connection, fires default sql query..."select @@ version" check version of db not valid in sybase , throws error. wanted stop query being fired no error received.

i not perl developer!

sub main::open_netcool {     use vars qw($user $password $os);      $os = (defined $os ) ? $os : $main::env{dsquery};     dbi->connect("dbi:sybase:server=$os", $user, $password,      {raiseerror=>1, taint=>1, autocommit=>1} );