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

##</code><code>##

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