#!/usr/bin/perl

use NetAddr::IP;
use strict;

my $ip = new NetAddr::IP('10.2.9.0/29');
while ($ip < $ip->broadcast) {
        print "$ip\n";
        $ip ++;
}

exit;