unless ($UID) {
    $EUID = $unpriviledged_uid;
    $EGID = $unpriviledged_gid;
}
...