#!/usr/local/bin/perl -w

use strict;
#use Date::Manip;
use Sybase::CTlib;
     
  
my $restype = "";
my $edition = "";
my $dbh = new Sybase::CTlib 'uid', 'pwd', 'ads',
 { CON_PROPS => { CS_SYB_CHARSET => 'utf8bin'}
                   };


    my @dat =$dbh->ct_sql("select code from Edition");
    print @dat;