perl/echo-color.sh