Maybe Net::Netmask

#!perl
use strict;
use Net::Netmask;

my $block = new Net::Netmask('20.20.20.0/24');
for (1..10){
  print $block->nth(1)."\n";
  $block = $block->nextblock(1);
}
[download]