#!/usr/bin/perl
use strict;
my @c=grep{s/\s//g;s/\d//g}`/usr/openwin/bin/showrgb`;
my $i=rand@c;
my $color=$c[$i];
exec("xterm -fg black -bg $color -font 6x13 -ls -sb -sl 1000 &");