sub print_debug {

# black  red  green  yellow  blue  magenta  cyan  white

	my ($text, $color) = @_;
	unless ($color) {
		print STDERR "$text \n";
	} else {
		use Term::ANSIColor qw(:constants);
		print STDERR $color, "$text \n", RESET;
   	
	}

}