CPAN::Groonga

 Net::Whois::IP is installed";
    say "   -j   --json         Output information in JSON";
    say "   -J   --json-pretty  Output information in JSON";
    say "   -lL  --local=L      Specify local l

e Socket;
use Net::CIDR;
use Data::Dumper;
use Math::Trig;
use LWP::Simple;
use Archive::Zip;
use JSON::PP;
use Text::CSV_XS qw( csv );
use List::Util   qw( first sum );
use Getopt::Long qw(:config bu

my %conf = (
    update		=> 1,
    distance		=> 0,
    whois		=> 0,
    short		=> 0,
    json		=> 0,
    json_pretty		=> 0,
    local_location	=> undef,
    dsn			=> $ENV{GEOIP_DBI_DSN} || "dbi:Pg:db