use strict;
use warnings;
use utf8;
use Win32::API;

my $moveFile = Win32::API->new("Kernel32", MoveFileW => 'PP', "I");
my $to       = 'poesía';
my $from     = 'canción';

$moveFile->Call(Encode::encode("UTF-16LE", $from),
    Encode::encode("UTF-16LE", $to));