Select Code to Download

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;