#!/usr/bin/perl

$|=1;
while(1){
	print "*";
	for $i (1..15){
		print pack("c", rand(253));
	}
}