3 => sub{
   # do groupadd
   my $groupName = get_group (“Please enter new group name: “);
      if (getgrnam($groupName))
        {
         print “Group already exists.”;
        }
      else
        {
        #if group does not exist create group
        ## FIXME delete “echo”
        system (“echo” , “groupadd”, “$groupName”);
        print “$groupName has been added. \n”;
        }
},

sub get_group{
     my $group = shift;
     print $group;
     chomp (my $ngroup = <>);
     return $nGroup;
}