Implementa la funzione della libreria C che ha lo stesso nome, la quale su molti sistemi restituisce il login corrente da /etc/utmp, se presente. Se non presente, usate getpwuid.

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

Non prendete in considerazione getlogin per l'autenticazione: non è sicura quanto getpwuid.