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

binmode(STDIN, ':utf8');
open my $out,'>:utf8','testfile.txt';
while (<>) {
  print $out $_;
}
close $out;

##</code><code>##

./encodingtrouble.pl input-encodingtrouble