system("mkdir \"C:\\Documents and Settings\\All Users\\\x83\x58\x83\x5E\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\"");

##</code><code>##

use Encode "encode";

*CORE::GLOBAL::system = sub {
    # explicitly convert from Perl's internal unicode format
    # into legacy CP932 encoding
    my @args = map encode("cp932", $_), @_;
    CORE::system(@args);  # call original internal routine
};

##</code><code>##

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}\"");