sub list2csv {
  my $line = join ",", map {
    my $t = $_;
    $t =~ s/"/""/g;
    $t =~ /\W/ ? qq("$t") : $t;
  } @_;
  $line .= "\n";
  return $line;
}