perl.exe -e "print ""this \x1B[1;31mred\x1B[0m text\n"" "