windows - STDIN に読み取り対象があるかどうかをテストする方法 (Windows 上の Perl)

Question

Perl で問題が発生しました。ファイル ハンドラーがすぐに読み取るものがあるかどうかをテストするには、次のSTDINようにプログラムしたいと思います。

while(1)
{
     my ($l);
     if (TestCanRead(STDIN))
     {
         $l = <STDIN>;
         HandleRead($l);
     }
     else
     {
         HandleNotRead();
     }
}

また

 while(1)
 {
     my ($l);
     $l = ReadImmediate(STDIN);
     if (defined($l))
     {
         HandleRead($l);
     }
     else
     {
          HandleNotRead();
     }

 }

Windows システムで関数ReadImmediateまたはTestCanReadを記述する方法を教えてもらえますか? ありがとうございました。