Add command to generate project groups

commands/project/gen_groups.pl

@@ -0,0 +1,20 @@
+#! /usr/bin/env perl
+
+use v5.10.1;
+use strict;
+use warnings;
+
+use lib "../../";
+
+use ACU::API::Base;
+use ACU::API::Projects;
+
+
+if ($#ARGV == 0)
+{
+    API::Projects::gen_groups($ARGV[0]);
+}
+else
+{
+    say "$0 <project_id>";
+}