Carp::Always, but with color