Select Code to Download

use Text::CSV;
my $csv = Text::CSV->new();
...
  $csv->parse($_);
  print join("\t", $csv->fields()); 
}