$client = $socket->accept()
  or die sprintf "ERRRR(%d)(%s)(%d)(%s)", $!,$!,$^E,$^E;