#!/usr/local/bin/perl
use Frontier::Client;
my ($cmd, $arg) = @ARGV;
$arg ||= "";

$server_url = 'http://10.200.200.40:8080/RPC2';
$server = Frontier::Client->new(url => $server_url);
print $server->call('freeswitch.api', $cmd, $arg);