Add colortest

perl colortest