use Xen::API; my $x = Xen::API->new; my %vms = $x->list_vms