log colorize perl script 