I found that the some of the people from APNIC have a new tool using DNS to look up ASN details for any IP address.

So looking up info about an ip address or dns A record gives details out the real routing of the address:

% host -t txt perlmonks.org.a.dns.ipasn.net
[download]

perlmonks.org.a.dns.ipasn.net descriptive text "151.101.129.242|IPv4|ADVERTISED|151.101.0.0/22|54113|Fastly,_Inc.|
US|United_States_of_America|arin|151.101.0.0/16|assigned|2016-02-01|VLD|151.101.0.0/22|22|54113|ARIN"
You can http that domain for info about your own network and descriptions of the fields as it returns json.

So I was thinking of the module name Net::IPASN or DNS::IPASN would be appropriate however I'm open to suggestions. It requires Net::DNS so perhaps Net::DNS::IPASN?

This will be a fairly simple module but can someone point to me a example of a fully complete module that was recently started as an example of a fully complete and properly done simple module that doesn't include decades of baggage?

I see the use case for this along the lines of:

$country_code = ipasn_countrycode("1.1.1.1");
or
$ipasn = Net::IPASN->New('2620:fe::9');
$cc = $ipasn->countrycode;
print $ipasn->string;
$asn = $ipasn->asn;
[download]