freeswitch/libs/esl/perl/single_command.pl

#!/usr/bin/perl
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();