open fList, '-|:encoding(UTF-16LE)', 'cmd /U /C dir /W';
open fOut, '>', 'out.txt';
foreach (<fList>) {
utf8::encode($_);
print fOut $_;
}