Select Code to Download

#!perl

...
  s/canción/poesía/;
  rename "$directory\\$original", "$directory\\$_";
}

use strict;
use warnings;
...

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