open my $OUT, '>>', "$mycrdir/file_detail.txt" or die "Can't create '$mycrdir/file_detail.txt'" ;
while (my @row = $sth->fetchrow_array) {
  print $OUT @row, "\n";
}
close $OUT;