C:\Temp\XML-Stream-1.22\t>perl -e "use IO::Select; open(H, qq|c:\\temp\\foo.cpp|) or die $!; my $n = new IO::Select(H); print $n->can_read(0); close(H);"