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

##</code><code>##

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

##</code><code>##

print $cameraInfo->Range;

##</code><code>##

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

##</code><code>##

$VAR1 = bless( {
                 'FocusPointLatitude' => '38.9594283106337',
                 'FocusPointLongitude' => '-95.2654992558942',
                 'FocusPointAltitude' => '0',
                 'FocusPointAltitudeMode' => 2,
                 'Range' => '11110155.9149248',
                 'Tilt' => '0',
                 'Azimuth' => '-1.00991539999065e-005'
               }, 'Win32::OLE' );