#!/usr/bin/perl
use strict;
use warnings;

use Class::CSV;

my $csv = Class::CSV->new(
	filename => 'test.csv',
	fields   => [qw/item qty/],
);

$csv->add_line({
  item   => "ütem",
  qty => '2'
});

$csv->print();