Unfortunately, on AIX, it is useless to wrap setruid(), as that function always returns EPERM on AIX, i.e. it is AIX's intention to disallow the resetting of real user id.

And that's exactly why you cannot set $< on AIX. This is not Perl's fault ;-)