encoding

#!/usr/bin/env perl

use strict;
use warnings;
#use utf8;
use Data::Dumper;

binmode STDIN,":utf8";
binmode STDOUT,":utf8";
binmode STDERR,":utf8";

chomp(my $filename = 'euc.txt');
open my $fh,"<",$filename;

#binmode $fh,":encoding(euc-jp)";
binmode $fh,":encoding(utf8)";

my @lines = <$fh>;
close $fh;

for my $line (@lines){
    print $line;
}

open my $fhw,">","utf8.txt" or die;
binmode $fhw,":utf8";
print $fhw @lines;