#!/usr/athena/bin/perl

%col =
	(
	"Mon", "black",
	"Tue", "orange",
	"Wed", "yellow",
	"Thu", "green",
	"Fri", "blue",
	"Sat", "purple",
	"Sun", "red",
	);

$_ = `date`;
split;
$color = $col{$_[0]};
`xsetroot -solid $color`;