perl -wle "open($hProcess, 'dir Q:\\ 2>&1 |'); print for <$hProcess>"