#!/opt/bin/perl -I/opt/SUNWrasag21/lib -d

use Ilist;
use Message;
use Util;

use Debug;

Debug->level(3);



$file= $ARGV[0];
if (!$file) {
  print "readToc <filename> \n\n";
  exit;
} 

open(O, $file);
while ($l = <O>) {
  $toC .= $l;
}
close(O);


 $ed = Message->fromC($toC);
 #print $ed->toString;

 print $ed->toC();

