#!/opt/SUNWstade/bin/perl -I/opt/SUNWstade/lib

use System;
use Util;
System->set_home("/opt/SUNWstade");

use Data::Dumper;

if (!$ARGV[0]) {
  print "USage: rasInfo [ipno]\n";
  exit;
}

print Dumper(Util->rasInfo($ARGV[0]));

