#! /usr/bin/perl -w
use Data::Dumper;
use Win32::OLE;  
my $fso = Win32::OLE->new("HHCOM.GeoSearch.CircleRangeSearch");
@geo = $fso->FindLocationsInCircleRange("CGN",70) ;
print Dumper(@geo);
foreach my $records (@geo){
 print "$records\n";
}