| Current Path : /usr/share/doc/perl-Geo-IP/example/ |
| Current File : //usr/share/doc/perl-Geo-IP/example/netspeedcell.pl |
#!/usr/bin/perl
use strict;
use warnings;
use Geo::IP;
my $gi = Geo::IP->open(
"/usr/local/share/GeoIP/GeoIPNetSpeedCell.dat",
GEOIP_STANDARD
);
print $gi->name_by_addr("24.24.24.24"), $/;