#!/usr/bin/perl
while(1) {
	print " " x rand(20), "* ";
	}
__END__