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;