sub print_debug {
    my ($text, $color) = @_;
    use Term::ANSIColor;
    print STDERR colored([$color], $text), "\n";
}

print_debug "bar", "yellow on_magenta";