my $path = "some-path-in-japanese-CP932";

if (-d $path) {
    chdir $path;
    my $tmpfile = "some-name-in-CP932";
    system("some_cmd \"other-filename-in-CP932\" $tmpfile");
    unlink $tmpfile if !-s $tmpfile;
    # etc...
}