Select Code to Download

#!/usr/bin/perl

...

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

" . "\\test.txt\0"), FILE_READ_DATA, 0, [], OPEN_EXISTING, 0, []);

my $perl_handle = 0;
...
    print "Error: " . $^E
}