$user_name = (getpwuid($<))[5];