while ( sysread(STDIN, $buf, 1024) ) || ( @ready = $sel->can_read() )