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);