#!/usr/bin/perl -W
use IO::Socket;
use MIME::Base64;
use LWP::UserAgent;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year+=1900;
$mday="0".$mday;
$mon+=1;
$mon="0".$mon;
$hour+=2;
$Numb=@ARGV[0];
$Txt=@ARGV[1];
$sum=length($Txt);
$ua = new LWP::UserAgent;
$r = HTTP::Request->new(POST => "
http://www.ivanovo.mts.ru/cgi-bin/cgi.exe?function=sms_send");
$r->push_header(User_Agent =>"Mozilla/4.7 [en] (Win95; I)");
$r->push_header(Referer =>"
http://www.ivanovo.mts.ru/cgi-bin/cgi.exe?function=sms_send");
$r->push_header('Accept-Language' =>"ru,ja;q=0.5");
$r->push_header('Accept-Encoding' =>"gzip, deflate");
$r->push_header(Host =>"www.ivanovo.mts.ru");
$r->content_type('application/x-www-form-urlencoded');
my($L)="MMObjectType=0\&MMObjectID=\&To=$Numb\&Msg=$Txt\&count=$sum\&Hour=$hour\&Min=$min\&Day=$mday\&Mon=$mon\&Year=$year\&Lang=2\&submit=submit";
my($leng)=length($L);
$r->content($L);
$resp = $ua->request($r);
запуск типа ./sms.pl Номер_Ибонента Такст_sms_(без проблелов)