perl -e 'printf "\e[0%dm", 0'