Select Code to Download

Given two ranges, do the following:
1) check if  the start or the end of each range  deviate by more than 
+five 
2) check if the intersection of the range is at least half its union

use Set::IntSpan;

...

if($diff_between_starts<=5 && $diff_between_ends<=5) {print "ALL IS OK
+\n";} 
else {print "PROBLEM\n";}