#!/usr/bin/perl

my @colors = (
'red',
'green',
'blue',
'cyan'
);

$howmany=@colors;
$color = @colors[abs(rand($howmany))];
$line = 'aterm -fg green -tr -trsb -tint '."$color".' -cr green -pr green -bd green +sb';
`$line`;