my @r = $t->print(String => $cmd, Timeout => 60);
   ($prematch, $match) = $t->waitfor(String => 'More? ', Timeout=>60) or die("MORE NOT FOUND");