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

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

if (!$ARGV[0]) {
  print "Discman2Topo : Will generate topo/file from discman/file\n";
  print "Usage: d2t <file> \n";
  exit;
}
$file = $ARGV[0];

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

