#! /usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Win32::OLE;

my $fso = Win32::OLE->new ("HHCOM.GeoSearch.CircleRangeSearch");
my $geo = $fso->FindLocationsInCircleRange ("CGN", 70);

print Dumper ($geo);
for my $records (@$geo) {
    print "$records\n";
}