Just tried like the below :

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

But no luck! the script is terminating showing no error. Is there anything else I can try ?