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;