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

my $dbh = DBI->connect("dbi:Sybase:server=JDBC", 'guest', 'sybase', {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";
    }
}


##</code><code>##

install_driver(Sybase) failed: Can't continue after import errors at /usr/local/lib/perl5/site_perl/5.6.1/sun4-solaris/DBD/Sybase.pm line 92
BEGIN failed--compilation aborted at /usr/local/lib/perl5/site_perl/5.6.1/sun4-solaris/DBD/Sybase.pm line 92.
Compilation failed in require at (eval 626) line 3.