use strict;
use warnings;
use Fcntl;
use Inline C => Config => LIBS => '-lkernel32', BUILD_NOISY => 1, typemaps => 'typemap';
use Inline C => <<'END_OF_C_CODE';

#include <windows.h>
#include <winbase.h>
void*
map_region(int filehandle, DWORD size, DWORD prot){
    HANDLE hMap = CreateFileMapping((HANDLE)filehandle, NULL, prot, 0, size, NULL);
    LPVOID addr = MapViewOfFile(hMap, FILE_MAP_ALL_ACCESS, 0, 0, size);
    CloseHandle(hMap);
    return addr;
}
int
unmap_region(void* addr, DWORD size){
    return UnmapViewOfFile(addr);
}
END_OF_C_CODE
my $test_file = 'test_mmap.bin';

sysopen(my $fh, $test_file, O_RDWR|O_CREAT|O_TRUNC)
  or die "can't open: $!";
binmode $fh;
my $size = 4096;
my $addr = map_region(fileno($fh), $size, 0x04)
  or die "mmap failed!!:  $^E ";

my $test_str = "Hello Windows mmap!";
syswrite($fh, $test_str);

unmap_region($addr, $size) or die "fail to unmap";