ログイン名の取得

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

use strict;
use warnings;

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