my @range = map { unpack "N", pack "C4", split /\./ } ($ARGV[0], $ARGV
+[1]);
print "@range\n"; # the numbers themselves
print $range[1]-$range[0]+1, "\n"; # how many addresses

for (my $i = $range[0]; $i <= $range[1]; $i++) {
  print join(".", unpack "C4", pack "N", $i), "\n";
}
[download]

Range iterator outside integer range
[download]