open $in, '-|', $file;
に対して、cp932をdecodeして扱いたい時はどう書くの?