広告
もしあれば、/etc/utmp から現在のログイン名を返します。NULL であれば、getpwuid() を使います。
$login = getlogin || (getpwuid($<))[0] || "Key";
https://www.7key.jp/program/perl/getlogin.html