Perl バッチクエリ ip 属性メソッドコード

#! /usr/bin/perl
use IP::QQWry::Decoded;
use Encode;
use utf8;
binmode(STDIN, ':encoding(utf8)'); #These three lines
binmode(STDOUT, ':encoding(utf8)'); #Copy someone else's
binmode(STDERR, ':encoding(utf8)'); #to output Chinese, and take Chinese lookup
my $qqwry=IP::QQWry::Decoded->new('qqwry.dat','gbk');
open UNUSE,'iplist.txt';
while (<UNUSE>){
        ($id,$ip,$key)=/(\d+)\s+(. *?) \s+(. *)/;
        my $info=$qqwry->query("$ip"); #Actually the key code is this line, haha
        printf "%s\t%s\t%s\n",$id,$ip,$key if $info=~/region name/;
}