Select Code to Download

use Bit::Vector;
use strict;
...
    print(($min+1), "-", ($max+1), "\n");
    $start = $max + 2;
}

$ perl bits.pl 
1-22
901-7999
10001-39886
1000501-1000000000