use utf8;
use Win32::Unicode;

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

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

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