ログイン名の取得
getlogin関数を使います。
環境によっては取得できない場合があるので、その場合はgetpwuid関数を使います。引数には$<を指定します。$<はユーザIDを格納している特殊変数です。
use strict; use warnings; print getlogin() || getpwuid($<).'', "\n";
関連項目
・getlogin関数・getpwuid関数
use strict; use warnings; print getlogin() || getpwuid($<).'', "\n";