## Subs to convert dotted-quads to integers and vice versa sub dq2n{ unpack 'N', pack 'C4', split '\.', $_[ 0 ] };; sub n2dq{ join '.', unpack 'C4', pack 'N', $_[ 0 ] };; $start = dq2n( '71.100.100.180' );; print n2dq( $_ ) for $start .. $start + 100;; 71.100.100.180 71.100.100.181 71.100.100.182 ... 71.100.100.254 71.100.100.255 71.100.101.0 71.100.101.1 71.100.101.2 ... 71.100.101.22 71.100.101.23 71.100.101.24