Ah yes you are right. I modified it to use IO::Select before I remembered that select doesn't work in Windows... please disregard my post.

edit: perlport also says piped opens (i.e. with '|-') don't work on windows. doh!