$tm->colWidth (-10, 32);
$,="|";
print $tm->colWidth(), "\n";