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;