my $data = $self->_rpc("one.vm.info", [ int => $id ]);

##</code><code>##

use Data::Dumper;
use Net::OpenNebula::RPCClient;

my $one = Net::OpenNebula::RPCClient->new(
    url      => "http://server:2633/RPC2",
    user     => "oneadmin",
    password => "onepass",
 );
 
my $ret = $one->_rpc("one.vmpool.info");

die Dumper $ret;
#die Dumper $one;

##</code><code>##

 use Data::Dumper;
 use Net::OpenNebula;
 my $one = Net::OpenNebula->new(
    url      => "http://server:2633/RPC2",
    user     => "oneadmin",
    password => "onepass",
 );
my $data = $one->_rpc("one.vmpool.info");
die Dumper \$data;