#!/usr/bin/perl
use strict;
my $start="90.40.128.0";
my $ende="90.40.128.10";
my $sdec = unpack('N', pack('C4', split(/\./, $start)));
my $edec = unpack('N', pack('C4', split(/\./, $ende)));
for (my $i=$sdec; $i<= $edec; $i++) {
print join('.', unpack('C4', pack('N', $i)))."\n";
}