ppとか知らないけど、とりあえずそのエラーでぐぐったら
use PerlIO qw(encoding);
を足せっていうのが出て来た。