#!/usr/bin/env perl
use strict;
use warnings;
use Encode qw(decode);

my $fileEncoding = "euc-cn";
my $filename= shift @ARGV or die("Need filename");

open(my $file,"$filename") or die $!;
binmode $file;
my $fileData;

{
    local $/; # slurp mode
    $fileData=<$file>;
    close $file;

}

my $string = decode($fileEncoding,$fileData); # String is perl-internal ie UTF8

print $string;