#!/usr/bin/perl -w
use strict;
use OpenMosix::HA;

my $ha=new OpenMosix::HA;
# $ha->{clinit_s}='/tmp/clinit.s';
warn $ha->{mynode};
warn join ' ', $ha->nodes();
warn $ha->{clinit_s};
$ha->init;
warn $ha->{init}{socket};
$ha->monitor();

