Cluster::CCS3pm

  use Cluster::CCS;
  my $ccs = new Cluster::CCS();
  $ccs->fullxpath(1);
  my $ccshandle = $ccs->connect();
  if ($ccshandle < 1) {
    print "Cannot comunicate with libccs\n";
    exit $ccshandle;
  }
  my $rtn;
  my $err;
  $err = $ccs->get($ccshandle, '/cluster/@name', $rtn);
  if ($err != 0) {
    print "Query is not valid\n";
  }
  print "My Cluster name is $rtn\n";
  $err = $ccs->disconnect($ccshandle);
  if ($err != 0) {
    print "Problems disconnecting from libccs\n";
  }
  exit $err;