As described here:

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