my $grp = getgrgid((getpwnam("user"))[3]);
print $grp;