fcntl(STDIN, F_GETFL, $flg) or
      die("Couldn't get flags for HANDLE : $!\n");

   fcntl(STDIN, F_SETFL, ($flg | O_NONBLOCK))
       or die("Couldn't set flags for HANDLE: $!\n");