#!C:/Programme/Perl

use warnings; 
use strict;  

use Text::CSV_XS;

my $file_in = 'ausgang.csv';
my $file_out = 'eingang.csv';
my $csv = Text::CSV_XS->new( { binary => 1 } ) or die "Cannot use CSV: ".Text::CSV->error_diag();

open my $fh_in, '<:encoding(utf8)', $file_in or die $!;
open my $fh_out, '>:encoding(utf8)', $file_out or die $!;


my @felder = ( 'ID', 'datumaktuel', 'datum','name');

$csv->print( $fh_out, \@felder );


}