#!/usr/bin/perl -w
use strict;

my @color = qw(red green blue cyan);

exec 'aterm',
    qw(-fg green -tr -trsb),
    -tint => $color[rand @color],
    qw(-cr green -pr green -bd green);