You can simplify your error handling. This:

  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 ($er
+ror);
[download]

can be replaced by:

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