Select Code to Download

use v5.36;
use JSON::MaybeXS;
...
  chomp;
  &p( find_ip($_) );
}

$ perl test.pl country_asn.json 
Enter IPv4
Type ^D to terminate
...
    min              "\b\b\0",
    start_ip         "8.8.4.0" (dualvar: 8.8)
}

CREATE TABLE ip_ranges (
   ...
...
WHERE ipmax >= ? and ipmin <= ?
ORDER BY ipmax
LIMIT 1