One problem: I now get an error from Windows.

Here's the code:

#!/usr/bin/perl
use warnings;
use strict;
use Win32::API;

my $STANDARD_RIGHTS_REQUIRED = (0x000F0000);
my $SECTION_QUERY             = 0x0001;
my $SECTION_MAP_WRITE         = 0x0002;
my $SECTION_MAP_READ         = 0x0004;
my $SECTION_MAP_EXECUTE         = 0x0008;
my $SECTION_EXTEND_SIZE         = 0x0010;
my $SECTION_ALL_ACCESS         = ($STANDARD_RIGHTS_REQUIRED|$SECTION_Q
+UERY|
                                $SECTION_MAP_WRITE       |$SECTION_MAP
+_READ|
                                $SECTION_MAP_EXECUTE     |$SECTION_EXT
+END_SIZE);

Win32::API->Import('kernel32', 'HANDLE OpenFileMapping(DWORD dwDesired
+Access, BOOL bInheritHandle, LPCTSTR lpName)');
Win32::API->Import('kernel32', 'LPVOID MapViewOfFile(HANDLE hFileMappi
+ngObject, DWORD dwDesiredAccess, DWORD dwFileOffsetHigh, DWORD dwFile
+OffsetLow, SIZE_T dwNumberOfBytesToMap)');

my $C3_mem = "Creatures 3_mem";
my $mem_handle = OpenFileMapping($SECTION_ALL_ACCESS, 0, $C3_mem);
my $mem_ptr = MapViewOfFile($mem_handle, $SECTION_ALL_ACCESS, 0, 0, 0)
+;
[download]

WinXP just throws a 'This program encountered an error' blah blah blah error.