There's some information here: https://msdn.microsoft.com/en-us/library/windows/desktop/bb266517(v=vs.85).aspx - including some code in other languages, but I'm not sure how to translate that to Perl.