# 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");