七色のワンライナー

perl -e'printf"\e[%dm%s\e[m%c",30+rand 8,chr 32+rand 95while 1'

実は8色つかってるけど。

こんだけ。

追記

4年半の時を経て、改良のアドバイスいただきました。