我试图读取一个包含IP地址的文件，然后将其传递给Geo::IP以查找其国家代码，但我的代码只返回文件中最后一个IP的国家代码。

open(my $in, "<", "ips.txt") or die "can't open the file $!";
my @lines = <$in>;

use Geo::IP;
my $gi = Geo::IP->new(GEOIP_MEMORY_CACHE);
foreach (@lines) {
    print $gi->country_code_by_addr($_);
}

我做错了什么？