Select Code to Download

%iphash = (
    192 => { 192.168.0.0/24 => 23244, 
...
            },
    193 => { 193.1.0.0/16 => 2452 },
);

my $pt = new Net::Patricia;
(fill it)
...
(...)
my $ptm = $memd->get('pt');
my $asn = $ptm->match_string($given_ip);

perl in free(): warning: chunk is already free
perl in free(): warning: page is already free
Assertion failed: (prefix->ref_count > 0), function Deref_Prefix, file
+ patricia.c, line 362.
zsh: abort (core dumped)  perl ipmemcached_00.pl