Выписка счета в системе WebMoney

#!/usr/bin/perl
system('g++ cmdbase.cpp crypto.cpp md4.cpp rsalib1.cpp signer.cpp wmsigner.cpp');

print "Content-type:text/html\n\n";
print "И все-таки она вертится!";

#!/usr/bin/perl
sub dopprobelz # функция дополнения строки нулями вначале
{my($str)=@_[0];
my($len)=@_[1]; my $delta=$len-length($str);
my $hwost='';
for (my($a)=0; $a<$delta; $a++) {$hwost=$hwost.'0';};
$str=$hwost.$str; return $str;
};
# подключение модулей
use FileHandle;
use IPC::Open2;
use CGI;
use Socket;
use LWP::UserAgent;

# задание параметров запроса
# сюда укажите свои данные
$OrderID = '999'; # номер счета на Вашем сайте
$PurseOfStores ='Z406593169293'; # кошелек сайта
$LoginOfStores = '321373645120'; # WMID сайта
$LoginOfCust = '083872782699'; # WMID покупателя, зададим как константу
$InvAddress = 'INVADDRESS'; # адрес
$Amount = '10'; #сумма счета, которую должен оплатить покупатель
$Desc = 'DESC'; # описание
$Period = '0'; #Срок протекции сделки
$Experation = '3'; #Срок действия счета - 3 дня

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time());
$RequestN=(1900+$year).dopprobelz($mon, 2);
$RequestN=$RequestN.dopprobelz($mday, 2).dopprobelz($hour, 2);
$RequestN=$RequestN.dopprobelz($min, 2).dopprobelz($sec, 2).dopprobelz($sec, 2);

$PlanStr="$OrderID$LoginOfCust$PurseOfStores$Amount";
$PlanStr=$PlanStr."$Desc$InvAddress$Period$Experation$RequestN";

print "Content-Type: text/html\n\n";

print "Строка подписи \$PlanStr: $PlanStr&ltbr>&ltbr>&ltbr>";

# вызов модуля WMSigner

pipe(IN,OUT); # создание канала связи (пишешь в OUT, читаешь из IN)
OUT->autoflush(1);
$pid = open(CHILD,"|-"); # разделение на 2 процесса
#связывание ввода доч. проц. с дескриптором CHILD
if ($pid != 0){ ## если данный поток - родитель
close(OUT); # Родителю OUT не нужен, будет писать через CHILD
print CHILD $PlanStr."\004\r\n"; # передача параметров потомку
close(CHILD); # передача закончена, дескриптор не нужен
$SignStr=$_ while (&ltIN>); # Получение данных от клона
close(IN);
waitpid($pid,0);
}else{ #### если клон(потомок)
close(IN);
open(STDOUT,">&=OUT"); # замена стандартного вывода на дескр. OUT
close(OUT);
system('./wmsigner'); # запуск модуля WMSigner (будет возвращать данные в OUT)
exit;};

print "Цифровая подпись (возвращена WMSigner\'ом): $SignStr&ltbr>&ltbr>&ltbr>";

$W3sUrl="https://w3s.webmoney.ru/asp/Invoice.asp?SL=$LoginOfStores&";
$W3sUrl=$W3sUrl."SP=$PurseOfStores&CL=$LoginOfCust&IN=$OrderID&D=$Desc&";
$W3sUrl=$W3sUrl."AD=$InvAddress&A=$Amount&E=$Experation&P=$Period&";
$W3sUrl=$W3sUrl."RN=$RequestN&SS=$SignStr";


print "HTTPS запрос к системе:&ltbr>".$W3sUrl."&ltbr>&ltbr>&ltbr>";

$ua2 = LWP::UserAgent->new; 
$res2=$ua2->get($W3sUrl);
$buf=$res2->content;

print "Ответ системы:&ltbr>".$buf; 
# Далее необходимо произвести разбор буфера и запись счета в базу данных магазина