use warnings;
use strict;
use Win32::OLE;
my $GE = Win32::OLE->new('GoogleEarth.ApplicationGE');
my $cameraInfo = $GE->GetCamera(0);
$cameraInfo->Range(500);