Luke
Thank you for the help, I was able to get the data to the file.
Here is the code.

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};
}
}
}
[download]

Thanks for the help.
John