#!/usr/bin/perl -w

# This small Perl script will launch aterm with specified options, using
# random color as the tint color. You can choose the color list by editing the
# @colors scalar.

push(@colors,"red","green","blue","yellow","white","brown","cyan","magenta","pink");
srand;
$index=int(rand(@colors));
exec '/usr/bin/aterm','-tint',$colors[$index],@ARGV;
