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

my ($src_qfn, $dst_qfn) = @ARGV;

open(my $src_fh, "<:raw:perlio:encoding(UTF-8)", $src_qfn)
   or die("Can't open \"$src_qfn\": $!\n");

open(my $dst_fh, ">:raw:perlio:encoding(UTF-16le)", $dst_qfn)
   or die("Can't open \"$src_qfn\": $!\n");

print $dst_fh $_ while <$src_fh>;

unlink($src_fh);