$UID = $EUID;
# or
$< = $>;

##</code><code>##

    $< = $>;            # set real to effective uid
    ($<,$>) = ($>,$<);  # swap real and effective uid