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