my @output = $t->cmd(String => "debug isdn verbose"); foreach my $line (@output){ printf ADTRANLOGINFO "%s \n",$line; }