sub printTransaction{
...
my $statement ="insert into PrintedChecks (Checkid,[datetime],id,printedby,data)
                        values (?,?,?,?,cast(? as varbinary(MAX)))
";
my $sth=$db->prepare($statement);

eval{
  $sth->execute(($checkid,$now,$id,$userid,''));
};
if ($@){
  $db->rollback;
  return 0;
}
$db->commit;

$sth = $db->prepare("select data from printedchecks where id = '$id'");
$sth->execute;
while($sth->fetch) {$sth->syb_ct_data_info('CS_GET', 1);}
$sth->syb_ct_prepare_send();
my $binary = pack("b*", $print); #Is this right???
$sth->syb_ct_data_info('CS_SET', 1, {total_txtlen => length($binary), log_on_update => 0});
   
$sth->syb_ct_send_data($binary, length($binary));
$sth->syb_ct_finish_send();
...
}