#!/usr/bin/perl

use strict;

use Geo::IP::PurePerl;

my $addr = $ARGV[0];

my $gi = Geo::IP::PurePerl->new("/usr/local/share/GeoIP/GeoIPNetSpeed.dat",GEOIP_STANDARD);

my $netspeed = $gi->id_by_addr($addr);

if ($netspeed == GEOIP_UNKNOWN_SPEED) {
  print "Unknown\n";
} elsif ($netspeed == GEOIP_DIALUP_SPEED) {
  print "Dialup\n";
} elsif ($netspeed == GEOIP_CABLEDSL_SPEED) {
  print "Cable/DSL\n";
} elsif ($netspeed == GEOIP_CORPORATE_SPEED) {
  print "Corporate\n";
}