while (1)
  {
  $wrote = undef;
  eval { $wrote = write_partial($ssl, $written, $to_write, $$data_ref); 1; }
   or do { print "WRITE PARTIAL FAILED L: \"" . __LINE__ . "\"\n"; sleep 3; next; }

  if(defined $wrote)
    {
    print "WROTE: \"$wrote\". LAST L: \"" . __LINE__ . "\"\n";
    last;
    }
   else { print "DO NOT KNOW HOW I GOT HERE WROTE: \"$wrote\". LAST L: \"" . __LINE__ . "\"\n"; }
  } #EO WHILE