#!/usr/bin/perl
while (1) {
	$c = 32 + rand(95);
	print chr($c) or
		die "$!";
}