use strict;
use warnings;

open my $in, "<:encoding(UCS-2LE)", "test.csv" or die $!;
open my $out, ">:encoding(UTF-8)", "test2.csv" or die $!;

while ( my $line = <$in> ) {
    print $out $line;
}