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

binmode(STDOUT, ':raw:encoding(UTF-16)');
for my $qfn (@ARGV) {
   open(my $fh, "<:raw:encoding(UTF-8)", $qfn)
      or die("Can't open \"$qfn\": $!\n");

   print while <$fh>;
}