my @range = map { unpack "N", pack "C4", split /\./ } $ARGV[0], $ARGV[1]; for (0..$range[1]-$range[0]) { print join(".", unpack "C4", pack "N", $_+$range[0]), "\n"; }