#! /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";
}

##</code><code>##


$VAR1 = [
          'BNJ',
          'CGN',
          'DUS',
          'ESS',
          'MGL',
          'SGE'
        ];