ユーザー名を取得するにはgetpwuid関数と特殊変数$>を使って以下のようにします。
my $user = getpwuid($>);
getpwuidの引数にユーザーIDを指定するとユーザー名を取得できます。