Select Code to Download

Select or download this

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

Select or download this

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

Select or download this
```
print $cameraInfo->Range;
```

Select or download this

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

Select or download this

$VAR1 = bless( {
                 'FocusPointLatitude' => '38.9594283106337',
...
                 'Tilt' => '0',
                 'Azimuth' => '-1.00991539999065e-005'
               }, 'Win32::OLE' );