Listing 2. Data Update Program

 1 #!/usr/local/bin/perl
 3 use Sybase::CTlib;
 5 $dbh =
Sybase::CTlib->ct_connect('sa','password','linux_dev');
 7 $dbh->ct_sql("use pubs2");
 9 $sql = "insert into discounts values ('Customer
Discount','5023',1000,2000,6)";
10 $dbh->ct_sql($sql);