Hi,

                I wanted to use perl Sys::Virt (which uses libvirt) to remotely connect KVM hypervisor. As a start I tried following simple script(KVM.pl) but I am getting following error.

First it will ask for authentication which I am providing to it manually then it fails. Do I need to do some configuration on KVM hypervisor before executing this script? Any help is appreciated.

bash-3.2$ perl KVM.pl

root@10.238.132.125's password:

Unable to open connection to qemu+ssh://root@10.238.132.125/system?no_verify=1: End of file while reading data: Warning: Perm: Input/output error8.132.125' (RSA) to the list of known hosts.

Can't call method "list_domains" on an undefined value at KVM.pl line 21.

bash-3.2$

bash-3.2$ cat KVM.pl

use strict;

use warnings;

use Sys::Virt;

use Data::Dump qw(dump);

my $user = "root";

my $host = <some_host>;

my $uri = "qemu+ssh://root\@$host/system?no_verify=1";

my $vmm;

eval {

  $vmm = Sys::Virt->new(uri => $uri, readonly => 1);

};

if ($@) {

    print "Unable to open connection to $uri: " . $@->message . "\n";

}

for my $dom ($vmm->list_domains, $vmm->list_defined_domains) {

  ## see perldoc Sys::Virt::Domain

  print "name: ", $dom->get_name, "\n";

  print "uuid: ", $dom->get_uuid_string(), "\n";

  ## $dom->get_info returns a hash reference

  dump $dom->get_info;

  print "\n";

}

Regards,

Rawat