用perl查询ip地址归属地

#!/usr/bin/perl

use strict;
use utf8;
#binmode(STDIN, ':encoding(utf8)');

binmode(STDOUT, ':encoding(utf8)');
#binmode(STDERR, ':encoding(utf8)');

use LWP::Simple;

my $ip = <STDIN>;
chomp ($ip);
my $url = "";
my $content = get $url;
 die "Couldn't get $url" unless defined $content;

my @diqus = ($content =~ m#

(.*)

(.*)

(.*)

#ig);

print "@diqus\n";

#my %diqus = ($content =~ m#

(.*)

(.*)

(.*)

#ig);

#foreach (keys %diqus){

#        print "此ip".$ip."的归属地是"."$_\n$diqus{$_}\n";

#        }