Select Code to Download

system("mkdir \"C:\\Documents and Settings\\All Users\\\x83\x58\x83\x5
+E\x81\x5B\x83\x67 \x83\x81\x83\x6A\x83\x85\x81\x5B\\\x83\x76\x83\x8D\
+x83\x4F\x83\x89\x83\x80\\\x91\xE3\x95\x5C\"");

use Encode "encode";

...
    my @args = map encode("cp932", $_), @_;
    CORE::system(@args);  # call original internal routine
};

system("mkdir \"C:\\Documents and Settings\\All Users\\\x{30B9}\x{30BF
+}\x{30FC}\x{30C8} \x{30E1}\x{30CB}\x{30E5}\x{30FC}\\\x{30D7}\x{30ED}\
+x{30B0}\x{30E9}\x{30E0}\\\x{4EE3}\x{8868}\"");