void __stdcall OpenBlockFile(
    const char* szFileName,   /* Input  */
    HANDLE*     pHandle       /* Output */
)

##</code><code>##

my $dll = Win32::API->new(
      'db.dll', 'OpenBlockFile', 'PP', 'V' )
   or die $^E;

my $packed_handle = pack('L', 0);
$dll->Call($filename, $packed_handle);
$handle = unpack('L', $packed_handle);