-- Perl 5.8.8 documentation --
getlogin
Perl functions A-Z | Perl functions by category | The 'perlfunc' manpage
  • getlogin

    getlogin login

    This implements the C library function of the same name, which on most systems returns the current login from /etc/utmp, if any. If null, use getpwuid.

        $login = getlogin || getpwuid($<) || "Kilroy";

    Do not consider getlogin for authentication: it is not as secure as getpwuid.