my $pt = new Net::Patricia;
(fill it)
my $memd = new Cache::Memcached {(usual stuff)};
$memd->set( 'pt', $pt );
(...)
my $ptm = $memd->get('pt');
my $asn = $ptm->match_string($given_ip);