sub incoming
{
      my $w=shift;
      $fh=$w->fh->accept or die; <<<<<<<