pipe($foutread, $foutwrite) || die "pipe() (second) failed: $!\n";
binmode($finread, ":encoding($outcharset)");
pipe($foutread, $foutwrite) || die "pipe() (second) failed: $!\n";
binmode($finread, ":encoding($outcharset)");
binmode($foutread, ":encoding($outcharset)");
binmode($foutwrite, ":encoding($outcharset)");
binmode($foutread, ":encoding($outcharset)");
binmode($foutwrite, ":encoding($outcharset)");