Select Code to Download

sub range{
  my($lo, $hi) = @_;
...
   ($lo, $hi) = (sort grep {$_ >= $lo and $_ <= $hi} @F)[0,-1];
   return $lo..$hi;
}