You are viewing the version of this documentation from Perl 5.7.1. This is a development version of Perl.
$REAL_USER_ID
$UID
$<

The real uid of this process. (Mnemonic: it's the uid you came from, if you're running setuid.) You can change both the real uid and the effective uid at the same time by using POSIX::setuid().