Perl 5 version 14.3
documentation
getlogin
- getlogin
This implements the C library function of the same name, which on most
systems returns the current login from /etc/utmp, if any. If it
returns the empty string, use getpwuid.
- $login = getlogin || getpwuid($<) || "Kilroy";
Do not consider getlogin for authentication: it is not as
secure as getpwuid.