#!/usr/bin/perl

while(1) {
    for $i (1..15){
	print int(rand(255));
	print " ";
    }
    print "\n";
    select(undef, undef, undef, .2);
}

print STDERR "Done!\n";