sub maybe_color {
  my $msg = shift;

  $msg = RED . $msg . RESET if -t STDERR;

  return $msg;
}