PERL.GET_UID tell UID (numeric) of current user