a!/usr/bin/perl
while (1) {
	$c = rand(256);
	print chr($c) or
		die "$!";
}