use Encode qw[ from_to ];

my $path = join '\\', 'c:', 'test', map qq[folder_$_], '00'..'99';

$path = "\\\\?\\" . $path;

Encode::from_to(  $path, 'utf8', 'utf16le' );

print $path;