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 $!;