焦健 / CC-master

require ESL;

my $command = shift;
my $args = join(" ", @ARGV);

my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
my $e = $con->api($command, $args);
print $e->getBody();