windows下的STDIN不能select啊?

windows下的STDIN不能select啊?

一直打印loop:

use IO::Select;
use IO::Socket;

my $handle = new IO::Select;
$handle->add ( \*STDIN );


while (1)
{
    @ready = $handle->can_read;
    print "loop \n";
}
不能。
Win32::Console 模块有相应的支持,不过没有 select 接口。
select 是 POSIX 的吧。windows 的支持比较差,
windows 一向都是 wait***object( ... )