Select Code to Download

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

Range iterator outside integer range