perl -MIO::Pipe -e"$p=IO::Pipe->new; $p->reader('dir /b'); print while <$p>"