ログイン名の取得


 getlogin関数を使います。
 環境によっては取得できない場合があるので、その場合はgetpwuid関数を使います。引数には$<を指定します。$<はユーザIDを格納している特殊変数です。
use strict;
use warnings;

print getlogin() || getpwuid($<).'', "\n";

関連項目

getlogin関数
getpwuid関数