I know you didn't mention Win32, but this looks like an equivalent mechanism on windows. I don't think there's a direct perl interface to this, though it should be fairly straightforward to implement.