Thanks wwe! It does just about what I need. I have modified it slightly to get the results that I was looking for. Here is the code:

#!/usr/bin/perl

use strict;
use warnings;
use Net::Netmask;

my $block = Net::Netmask->new('10.2.9.0/29');

my $i = 1;
while (1) {
    print $block->nth($i), "\n";
    last
      if $block->nth($i) eq $block->nth(-2);
    $i++;
}
[download]

All I need to do now is to find a way to remove the first ip(the gateway ip)... any suggestions? thanks