Select Code to Download

use strict;
use warnings;
...
   say q{     }, inet_ntoa( $lowAddr );
   $lowAddr = pack q{N}, 1 + ( unpack q{N}, $lowAddr );
   } while $lowAddr le $highAddr;

johngg@shiraz:~/perl/Monks > ./spw1174132 1.2.3.4/27

...
     1.2.3.29
     1.2.3.30
     1.2.3.31

johngg@shiraz:~/perl/Monks > ./spw1174132 1.2.3.4/18

...
     1.2.63.253
     1.2.63.254
     1.2.63.255