$ cat 634897.pl
use strict;
use warnings;
my $name = q{nobody};
print scalar ( getpwnam($name) );
print scalar ( getgrnam($name) );
print join (q{,}, getpwnam($name) );
__END__
$ perl -l 634897.pl
99
99
nobody,x,99,99,,,Nobody,/,/sbin/nologin