(my $hex_user=$user)=~s/(.)/sprintf("%02x",ord($1))/egs;
 	&Update_Log("User: '$user' = '$hex_user'\n");