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
};