Я просто обрабатываю такую ошибку, да и все.
попробуй eval { }

eval {$rv = $client->send($outbuffer{$client}, 0);}
if  ($@) {
  print "Жопа! $@";
  ## очитска буфера
} else {
ok
}