csv (out => ""$mycrdir/file_detail.csv", in => sub { $sth->fetch }, quote_empty => 1);
csv (out => ""$mycrdir/file_detail.txt", in => sub { $sth->fetch }, quote_empty => 1, sep => "|"); # or " " for space