Perl script to check terminal colors