use Net::IP;

for ( 1 .. 200 ) {
    my $ip = new Net::IP('217.229.0.134 - 217.229.0.150') or die;
    my @ips = ();

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

sidburn@sid:~/perl/netip$ time ./ip.pl 

real	0m10.209s
user	0m10.201s
sys	0m0.000s

sidburn@sid:~/perl510$ git diff
diff --git a/lib/site_perl/5.10.0/Net/IP.pm b/lib/site_perl/5.10.0/Net/IP.pm
index eec2023..26f13b4 100644
--- a/lib/site_perl/5.10.0/Net/IP.pm
+++ b/lib/site_perl/5.10.0/Net/IP.pm
@@ -40,7 +40,7 @@
 package Net::IP;
 
 use strict;
-use Math::BigInt;
+#use Math::BigInt;
 
 # Global Variables definition
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $ERROR $ERRNO
@@ -388,7 +388,7 @@ sub binmask {
 sub size {
     my $self = shift;
 
-       my $size = new Math::BigInt($self->last_int);
+       my $size = $self->last_int; #new Math::BigInt($self->last_int);
        $size->badd(1);
        
        $size->bsub($self->intip);
@@ -888,7 +888,7 @@ sub ip_bintoint {
     my $binip = shift;
 
     # $n is the increment, $dec is the returned value
-    my ($n, $dec) = (Math::BigInt->new(1), Math::BigInt->new(0));
+    my ($n, $dec) = (1, 0); #Math::BigInt->new(1), Math::BigInt->new(0));
 
 
     # Reverse the bit string
@@ -913,7 +913,7 @@ sub ip_bintoint {
 # Returns           : bit string
 sub ip_inttobin {
 
-    my $dec = Math::BigInt->new(shift);
+    my $dec = shift; #Math::BigInt->new(shift);
 
     # Find IP version
     my $ip_version = shift;
@@ -924,7 +924,7 @@ sub ip_inttobin {
         return;
     }
 
-       my $binip = $dec->as_bin();
+       my $binip = sprintf '%b', $dec; #$dec->as_bin();
        $binip =~ s/^0b//;
 
     # Define normal size for address

sidburn@sid:~/perl/netip$ time ./ip.pl 

real	0m1.770s
user	0m1.768s
sys	0m0.000s