my $cmd = 'cmd.exe /u /c dir /B "'.$dir.'" 2>&1';
my $cmdResult = qx($cmd);
$cmdResult = decode('utf16le', $cmdResult);