Select Code to Download

my $csv = Text::CSV->new ({ quote_space => 0, eol => "\n", auto_diag =
+> 1 });
 
my @columns = ("What, a nice day", "This is a fence", "Here is an,and 
+day");
$csv->print ($fh, \@columns);