More choice. And is this ugly :)

#!/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 gr
+een -bd green +sb';
`$line`;
[download]

nfytn@rasmus.uib.no