use strict; use warnings;

use VMOMI;
use Data::Dumper;

my $host = 'vcenter1.example.com',
my $user = 'myuser';
my $pass = 'STRONG';

my $stub = new VMOMI::SoapStub(host => $host) || die "Failed to initialize VMOMI::SoapStub";

my $instance = new VMOMI::ServiceInstance(
    $stub,
    new VMOMI::ManagedObjectReference(
        type  => 'ServiceInstance',
        value => 'ServiceInstance',
    ),
);

# Login
my $content = $instance->RetrieveServiceContent;
my $session = $content->sessionManager->Login(userName => $user, password => $pass);

my $vm = new VMOMI::VirtualMachineToolsRunningStatus(
    $stub,
    new VMOMI::VirtualMachineToolsRunningStatus(
        type => 'VirtualMachine',
        value => 'vm-name-foobar'
    )
);
use Data::Dumper;
print Dumper $vm;

# Logout
$content->sessionManager->Logout();