#!/usr/bin/perl -w

# x-terminal-emulator - jest to skrypt uruchamiajcy aterma z losowym kolorem
# przezroczystoci. Naley umiesci go w katalogu '~/bin', wtedy zostanie on
# uyty zamiast standardowego 'x-terminal-emulator' (w Debianie)

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