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

use System;
use Debug;
use Util;
use TO;
use PDM::ConfigFile;

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

System->set_testMode(1);

Debug->level(2);


$t1 = $ARGV[0] || System->hostname() ;

TO->clearTopo($t1);
$to = TO->readTopo($t1);

$to->toString();

