#!perl
use utf8;
use strict;
use diagnostics;

use Win32API::File 0.08 qw(:ALL);
print "$Win32API::File::VERSION\n"; # 0.10

#createFile('abc.txt');		# system cannot find specified file
#createFile('C:/abc.txt');	# system cannot find specified file
#createFile('//?/C:/abc.txt');	# network path was not found

CreateFileW('中文.txt', GENERIC_WRITE, FILE_SHARE_READ, [], CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);

print "last err: $^E\n";