for ( ; ; )
{
   if (($Timeout==0) || select(CMD, undef, undef, $Timeout))
   {
      unless(sysread(CMD, $buf, 1024))
      {
         $Error = "Unexpected EOF on command channel";
         return undef;
      }
   }

   ...

}