use GeoIP2::Database::Reader;
my $ip = ('128.101.101.101');
my $reader = GeoIP2::Database::Reader->new(file => 'GeoLite2-Country.mmdb');
my $record = $reader->country($ip);