#!/usr/bin/perl

use strict;
use Win32API::File qw( :ALL );
use utf8;
use Encode;

#Notice the \0 at the end of the file name.  Necessary but I don't know why.
my $win32_handle = Win32API::File::CreateFileW(Encode::encode("UTF-16LE", "C:\\test\\" . "