$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;