Select Code to Download

use strict;
use warnings;
...

say 'ok' if -d encode('CP'. Win32::GetACP, $path);
say 'ok' if decode('CP'. Win32::GetOEMCP, qx(dir $parent)) =~ /$folder
+/;