#!/usr/bin/perl

use strict;
use warnings;

use Test::More; 
BEGIN { use_ok('getaddress') };

use Encode qw(from_to);

my $datafile = './data/QQWry.Dat';

my $str = &ipwhere('221.203.140.26', $datafile);
from_to($str, "GBK", "UTF8");
print $str, "\n";
done_testing();