require Text::CSV_XS;

      my $csv = Text::CSV_XS->new;

      my $column = '';
      my $sample_input_string = '"I said, ""Hi!""",Yes,"",2.34,,"1.09"';
      if ($csv->parse($sample_input_string)) {
        my @field = $csv->fields;
        my $count = 0;
        for $column (@field) {
          print ++$count, " => ", $column, "\n";
        }
        print "\n";
      } else {
        my $err = $csv->error_input;
        print "parse() failed on argument: ", $err, "\n";
      }

      my @sample_input_fields = ('You said, "Hello!"',
                                 5.67,
                                 'Surely',
                                 '',
                                 '3.14159');
      if ($csv->combine(@sample_input_fields)) {
        my $string = $csv->string;
        print $string, "\n";
      } else {
        my $err = $csv->error_input;
        print "combine() failed on argument: ", $err, "\n";
      }