use Text::CSV::Encoded;
my $csv = Text::CSV::Encoded->new ({
    encoding     => "utf-8",      # Both in and out
    encoding_in  => "utf-16le",   # Only the input
    encoding_out => "cp1252",     # Only the output
    });