if ($CL_logdebug){
while ($t){
for (my $A = 0;$A <= 10;$A++){
my $filename = sprintf ("AdtranLogInfo%02d.txt",$A);
my $log_fh = $t->input_log("/home/jmahaffey/$filename");
$t->cmd(String => "debug isdn verbose",errmode => "return",Timeout => 3600);
my @time = $t->cmd(String => "show clock",Prompt => '/[#]/',Timeout => 10);
printf @time;
if ($A == 10){$A = 0};
}
}
}