Пример работы с SMS шлюзом на языке Perl

Отправка СМС
Получения статуса отправленной СМС
Получение цены отправки
Получение баланса

Отправка СМС:

#!/usr/bin/perl
 
use LWP::UserAgent; 
my $ua = new LWP::UserAgent;
 
my $login = '';
my $password = '';
 
my $send_sms = '<?xml version="1.0" encoding="UTF-8"?>    
    <SMS> 
    <operations>  
    <operation>SEND</operation> 
    </operations> 
    <authentification>    
    <username>'.$login.'</username> 
    <password>'.$password.'</password>  
    </authentification>   
    <message> 
    <sender>SMS</sender>    
    <text>Test message [UTF-8]</text>   
    </message>    
    <numbers> 
    <number messageID="msg11">380972920000</number> 
    </numbers>    
    </SMS>';  
         
my $response = $ua->post('http://api.myatompark.com/members/sms/xml.php',{ XML => $send_sms});
 
print $response->content; 

Получения статуса отправленной СМС (информация о статусе смс будет доступна спустя несколько минут после отправки):

#!/usr/bin/perl
 
use LWP::UserAgent; 
my $ua = new LWP::UserAgent;
 
my $login = '';
my $password = '';
 
my $get_sms_status = '<?xml version="1.0" encoding="UTF-8"?>  
    <SMS> 
    <operations>  
    <operation>GETSTATUS</operation>    
    </operations> 
    <authentification>    
    <username>'.$login.'</username> 
    <password>'.$password.'</password>  
    </authentification>   
    <statistics>      
    <messageid>msg11</messageid>    
    </statistics>     
    </SMS>';  
         
my $response = $ua->post('http://api.myatompark.com/members/sms/xml.php',{ XML => $get_sms_status});
 
print $response->content;

Получение цены отправки:

#!/usr/bin/perl
 
use LWP::UserAgent; 
my $ua = new LWP::UserAgent;
 
my $login = '';
my $password = '';
 
my $get_send_price = '<?xml version="1.0" encoding="UTF-8"?>  
    <SMS> 
    <operations>  
    <operation>GETPRICE</operation> 
    </operations> 
    <authentification>    
    <username>'.$login.'</username> 
    <password>'.$password.'</password>  
    </authentification>   
    <message> 
    <sender>SMS</sender>    
    <text>Test message [UTF-8]</text>   
    </message>    
    <numbers> 
    <number messageID="msg11">380972920000</number> 
    </numbers>    
    </SMS>';  
         
my $response = $ua->post('http://api.myatompark.com/members/sms/xml.php',{ XML => $get_send_price});
 
print $response->content; 

Получение баланса:

#!/usr/bin/perl
 
use LWP::UserAgent; 
my $ua = new LWP::UserAgent;
 
my $login = '';
my $password = '';
 
my $get_balance = '<?xml version="1.0" encoding="UTF-8"?> 
    <SMS> 
    <operations>  
    <operation>BALANCE</operation>  
    </operations> 
    <authentification>    
    <username>'.$login.'</username> 
    <password>'.$password.'</password>  
    </authentification>       
    </SMS>';  
         
my $response = $ua->post('http://api.myatompark.com/members/sms/xml.php',{ XML => $get_balance});
 
print $response->content; 