#!/usr/athena/bin/perl
open(FI, "/usr/lib/X11/rgb.txt") || die "No color file...";

while (<FI>) {
	@words = split(/[\t ]+/);
	if ($words[$#words-1] !~ /[a-z]+/)
		{
			$colorname = pop(words);
			print("Displaying: $colorname");
			system("xsetroot -solid $colorname");
			sleep(2);
		}
}