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

my $perl_handle = 0;

#This translates the win32 file handle to a Perl file handle
Win32API::File::OsFHandleOpen($perl_handle, $win32_handle, "r");

print <$perl_handle>;

if ($^E) 
{
	print "Error: " . $^E
}