#!/usr/bin/perl
use strict;
use Geo::IP::PurePerl;
my $addr = shift;
my $gi = Geo::IP::PurePerl->new("/usr/local/share/GeoIP/GeoIPISP.dat",GEOIP_STANDARD);
my $isp = $gi->org_by_name($addr);
print $isp . "\n";
#!/usr/bin/perl
use strict;
use Geo::IP::PurePerl;
my $addr = shift;
my $gi = Geo::IP::PurePerl->new("/usr/local/share/GeoIP/GeoIPISP.dat",GEOIP_STANDARD);
my $isp = $gi->org_by_name($addr);
print $isp . "\n";