Пример кода для 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://api.smsfeedback.ru/'.$method.'?'.$params);
				    my $res = $ua->request($req);
				    if ($res->is_success) {
				        return $res->decoded_content;
				    }
				    return 'error '.$res->status_line;
				}
				
				# передача сообщения
				print gateRequest(
				        'method' => 'messages/v2/send',
				        'login' => 'login',
				        'password' => 'password',
				        'phone' => '79031234567',
				        'text' => 'text sms',
				        'sender' => 'TEST-SMS');
				
				# проверка состояния отправленного сообщения
				print gateRequest(
				        'method' => 'messages/v2/status',
				        'login' => 'login',
				        'password' => 'password',
				        'id' => '1732');