getlogin

/etc/utmpから現在のログイン名を返します。ヌルであれば、getpwuidを使ってください。

getloginの使い方

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