#!/usr/bin/perl

use strict;
use warnings;
use Net::IP qw(&ip_inttobin &ip_bintoip);
use Benchmark qw/:all/;

sub new
{
  my $ip = new Net::IP('217.229.0.134 - 217.229.0.150') or die;

  my @ips;

  my $intip=$ip->intip();
  while($intip < $ip->last_int())
  {
    $intip++;
    push(@ips, ip_bintoip(ip_inttobin($intip, $ip->version), $ip->version));
  }
}

sub old
{
  my $ip = new Net::IP('217.229.0.134 - 217.229.0.150') or die;
  my @ips = ();

  while ($ip)
  {
    push @ips, $ip->ip();
    ++$ip;
  }
}

my $result = timethese(
    500,
    {
      'new' => \&new,
      'old' => \&old
    }
);

Benchmark: timing 500 iterations of new, old...
       new:  4 wallclock secs ( 4.20 usr +  0.01 sys =  4.21 CPU) @ 118.76/s (n=500)
       old: 57 wallclock secs (54.36 usr +  0.05 sys = 54.41 CPU) @  9.19/s (n=500)