REST примеры кода

Пример использования REST интерфейса на языке PERL

use strict;
use LWP::UserAgent;
use HTTP::Request;

# отсутствующие библиотеки можно установить, используя CPAN
# подробнее о CPAN см. http://ru.wikipedia.org/wiki/CPAN
# пример: cpan LWP::UserAgent

sub gateRequest {
    my %fields = @_;
    my $params = '';
    my $method = '';
    foreach my $k (keys %fields){
        if ($k eq 'method') {
            $method = $fields{$k};
            next;
        }
        $params .= $params ne '' ? "&" : '';
        $params .= $k.'='.$fields{$k};
    }
    my $ua = LWP::UserAgent->new;
    my $req = HTTP::Request->new(GET => 'http://gate.smsbliss.ru/'.$method.'?'.$params);
    my $res = $ua->request($req);
    if ($res->is_success) {
        return $res->decoded_content;
    }
    return 'error '.$res->status_line;
}

# передача сообщения
print gateRequest(
        'method' => 'send',
        'login' => 'login',
        'password' => 'password',
        'phone' => '71234567890',
        'text' => 'text here',
        'sender' => 'TEST');

# проверка состояния отправленного сообщения
print gateRequest(
        'method' => 'status',
        'login' => 'login',
        'password' => 'password',
        'id' => '5000');

Список вариантов ответов от сервиса при передаче сообщения и приеме ответа находится здесь.