Select Code to Download

#define USING_WIDE() (0)

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

...
    unlink $tmpfile if !-s $tmpfile;
    # etc...
}

use Encoding;

...
    unlink U2A($tmpfile) if !-s U2A($tmpfile);
    # etc...
}

...
my $path = U2A("some-path-in-japanese-CP932");
...
    system(U2A("some_cmd \"other-filename-in-CP932\" ").$tmpfile);
    unlink $tmpfile if !-s $tmpfile;
}