perlでユーザ情報を取得する方法

use strict;
use warnings;
use User::grent;

while (my @ent = getpwent) {
	my ($name, $password, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = @ent;
	printf "%s,%s,%s,%s,%s,%s,%s,%s,%s\n",
		$name, $password, $uid, $gid, $quota, $comment, $gcos, $dir, $shell;
}

use strict;
use warnings;
use Env qw(USER);

my $username = $USER;
my @ent = getpwnam ($username);
if (@ent == 0) {
	die "can not get getpwnam[$username]\n";
}
my ($name, $password, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = @ent;
printf "%s,%s,%s,%s,%s,%s,%s,%s,%s\n", $name, $password, $uid, $gid, $quota, $comment, $gcos, $dir, $shell;

perldoc -f getpwent