Пример реализации на Perl

#!/usr/bin/perl

use strict;
use Digest::MD5 qw( md5_hex );
use LWP::Simple;
use Data::Dumper;
use JSON::Parse 'parse_json';

my $url = 'http://www.people-group.su/api3/';
my $uid = '1';
my $key = 'xxx';

sub start
{ 
 my $add_url = shift;
 my $query   = 'uid=' . $uid . shift;
 my $res     = parse_json( get $url . $add_url . '/?' . $query . '&sign=' . md5_hex( $query . $key ) );
 print Dumper( $res ) . "\n";
}

#Пример запроса добавление сайта
start( 'site/add', '&name=Test2&url=http://www.test3.com' );

#Пример запроса удаления сайта
start( 'site/delete', '&site_id=5' );

#Пример запроса обновления сайта
start( 'site/edit', '&site_id=6&name=AAA' );

#Пример запроса списка сайтов
start( 'site', '&site_id=0&status=1' );

#Пример запроса добавление рекламного блока
start( 'section/add', '&site_id=6&name=Test' );

#Пример запроса удаление рекламного блока
start( 'section/delete', '&site_id=6&section_id=3' );

Пример запроса обновления рекламного блока
start( 'section/edit', '&site_id=6&section_id=4&logo=1' );

Пример запроса вывод списка рекламных блоков
start( 'section', '&site_id=6&status=1' );

Пример запроса Стастистика
start( 'stat', '&start=20131211&stop=20131231&site_id=18&section_id=33' );