1 #!/usr/local/bin/perl 3 use Sybase::CTlib; 5 $dbh = Sybase::CTlib->ct_connect('sa','password','linux_dev'); 7 $sql = "select name from sysdatabases"; 9 $qref = $dbh->ct_sql($sql); 10 @rows = @$qref; 12 foreach $row (@rows) { 13 print "$$row[0]\n"; 14 }