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;
    }
}