#!/usr/bin/perl

use Win32;
use Win32::OLE;

my $geoip = Win32::OLE->new("GeoIPCOM.GeoIP");

die "GeoIP COM object doesn't appear to be registered" unless defined($geoip);


$geoip->loadDataFile("c:/Program Files/GeoIP/GeoIPDemo.dat");
print $geoip->country_code_by_name("www.yahoo.com")."\n";
print $geoip->country_name_by_name("www.yahoo.com")."\n";