sub range_overlap {
  my ($start1, $end1, $start2, $end2);
  return ($end1 >= $start2 || $start1 <= $end2) &&
         ($end2 >= $start1 || $start2 <= $end1);
}