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