#!/usr/bin/perl

my @colors = (split (/\n/,`cat /usr/lib/X11/rgb.txt |awk '{print \$4}'`)
);
$howmany=@colors;
$color = @colors[abs(rand($howmany))];
$line = 'aterm -fg green -tr -trsb -tint '."$color".' -cr green -pr green -bd green +sb';
`$line`;