DeviceIoControl($fh,
    FSCTL_GET_RETRIEVAL_POINTERS,
    $inBuf,length($inBuf),
    $outBuf,length($outBuf),
    $dwBytesReturned,
    []);
 my $error = Win32::GetLastError();
  print "error-no: $error\n";
  warn "DeviceIoControl->Call: ", Win32::FormatMessage($error) if ($error);

##</code><code>##

DeviceIoControl($fh,
    FSCTL_GET_RETRIEVAL_POINTERS,
    $inBuf,length($inBuf),
    $outBuf,length($outBuf),
    $dwBytesReturned,
    []
) or warn sprintf "DeviceIOControl failed with (%d) '%s'\n", $^E, $^E;