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/國語懷念老歌 Vol. 2\" \"Vol2~00A\"";

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