#!/usr/bin/perl @color = qw(red green blue cyan); exec 'aterm',qw(-fg green -tr -trsb),-tint => $color[rand @color],qw(-cr green -pr green -bd green +sb);
pvz: