Select Code to Download

my @range= unpack "N*", pack "C*", split /[. ]+/, "@ARGV";

$range[0]..$range[1]

Range iterator outside integer range at ...

for(  $_= $range[0];  $_ <= $range[1];  $_++  )

sub octets2num {
    my $val= 0;
...
    }
    return ! @bytes ? "0" : join ".", @bytes
}