open OUT, ">", "./trace.out";
my $line =0;
foreach (@cmdout) {
	$line++;
	my $bytes = print  $line.": ".$_;
	print OUT "$line: bytes: $bytes, err: $! \n";
}
close(OUT);