#! /usr/bin/env perl

use v5.10.1;
use strict;
use warnings;

use ACU::API::Base;
use ACU::API::Projects;


if ($#ARGV == 0)
{
    API::Projects::add($ARGV[0], "");
}
else
{
    say "$0 <project_id>";
}