use Win32::Unicode;

##</code><code>##

use utf8;
use Win32::Unicode;

# unicode console out
printW "I \x{2665} Perl";

$from=poesía;
$to=canción;

# moveW $from, $to or die $!;
renameW $from, $to or die $!;

##</code><code>##

I &#9829; PerlUndefined subroutine &Errno::ERROR_FILE_EXISTS called at C:/Perl/site/lib/Win32/Unicode/Error.pm line 31.