Select Code to Download

my $net = NetAddr::IP->new('10.2.9.0/29');
my $seen_gateway;
...
   next if !$gateway++;
   print $ip->addr, "\n";
}

my $net = NetAddr::IP->new('10.2.9.0/29');
my @hosts = $net->hostenum;
for my $ip (@hosts[1..$#hosts]) {
   print $ip->addr, "\n";
}