eval{
    $wrote = write_partial($ssl, $written, $to_write, $$data_ref);
};
print "Write error $@" if $@;