#!/afs/athena/contrib/perl/p

open(COL, "/usr/lib/X11/rgb.txt");
$t = 1 unless $t = shift(@ARGV);
while(<COL>){
	split(' ', $_);
	shift if $_[0]='';
	push(@colors,join('',@_[3..$#_]))
}
srand;
while(1){
	$c1 = $colors[int(rand($#colors))];
	$c2 = $colors[int(rand($#colors))];
	`xsetroot -bitmap /afs/athena/user/h/a/harrisj/Public/poodle.bm -foreground $c1 -background $c2`;
	sleep($t);
}