The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use utf8;

use Test::More tests => 1;

use Geo::SypexGeo;

my $geo = Geo::SypexGeo->new( 'data/SxGeoCity.dat' );
my $city = $geo->get_city( '87.250.250.203' );

is( $city, 'Москва', 'City founded ok' );