my @color= (127,127,127);  #256x256x256 color palette
my @location= (50,50);  #200x200 screen
for(;;) {
  $color[0] += (int(rand*3)==1) - (int(rand*3)==1);
  $color[1] += (int(rand*2)==1) - (int(rand*4)==1);
  $color[2] += (int(rand*4)==1) - (int(rand*2)==1);
  $location[0] += (int(rand*5)) - 2;
  $location[1] += (int(rand*5)) - 2;
  @color = map {$_ % 256} @color;
  @location = map {$_ % 200} @location;
  DrawPixel(@location,@color);
}