if ($fh == $ircsock) {
  ...
  if (sysread($ircsock, $ircdata, 512)) {
     ...
  } else {
    $sel->remove($ircsock);
    close($ircsock);
    ...reopen $ircsock...
    ...add $ircsock to $sel...
  }