Как сделать сообщения от разных процессов/тредов разноцветными при выводе на консоль?

Есть программа, которая через fork делает потомков.
Какими средствами можно установить цвет выводимого сообщения?
Нужно что-то вроде этого

sub color_print($)
  {
     $str = shift;
     set_color('red');
     print $str;
     set_color('black');
  }