fsutil file setShortName "C:/Users/James/Music/國語懷念老歌 Vol. 2" "Vol2~00A"

##</code><code>##

use strict;
use warnings;

use utf8;
use open ':std', ':encoding(UTF-8)';

use Win32::Unicode;
use Win32::Unicode::Dir;
use Win32::Unicode::File;
use Win32::Unicode::Console;

use Win32::Console;
Win32::Console::OutputCP(65001); # code page for Unicode (UTF-8)

my $cmd = "fsutil file setShortName \"C:/Users/James/Music/&#22283;&#35486;&#25079;&#24565;&#32769;&#27468; Vol. 2\" \"Vol2~00A\"";

my $trans = `$cmd`;
print "CMD: $cmd\nTRANS: \"$trans\"";

##</code><code>##

CMD: fsutil file setShortName "C:/Users/James/Music/&#22283;&#35486;&#25079;&#24565;&#32769;&#27468; Vol. 2" "Vol2~00A"
TRANS: "Error:  The system cannot find the file specified.