#!/usr/bin/perl -I/opt/ras21/lib
use TO;
use System;

$file = $ARGV[0];
if (!$file) {
   print "Usage readTopo <hostname.domain> \n";
   exit;
}
System->set_rasport("7654");

System->set_home("/opt/ras21");

$to = TO->readTopo($file,1);

print "readTopo done!\n";
