# feeder.pl
$s = join '', map chr, 0..255;
print $s;

##</code><code>##

# tester.pl
$s = join '', map chr, 0..255;
1 while $read = read(STDIN, $in, 512, $ofs+=$read);
print($in eq $s ? "pass\n" : "fail\n");

##</code><code>##

$ perl feeder.pl | perl tester.pl
pass
$ perl feeder.pl | perl -C6 -pe1 | perl -C1 -pe1 | perl tester.pl
pass

##</code><code>##

$ perl -C6 -e 'print "\x{2660}"' | perl -C1 -pe1
Wide character in print, <> line 1.
[junk][junk][junk]

##</code><code>##

$ perl -C6 -e 'print "\x{2660}"' | perl -C1 -MEncode -pe '$_=encode("iso-latin-1",$_);'
?