Vyacheslav
Собственно вот они самые на PHP:
Код:
$sign=md5("$user::$pass::$email::$password_check");
$ch=curl_init();
curl_setopt($ch,CURLOPT_USERAGENT,'Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.1.3) Gecko/20090824 Firefox/3.5.3 (.NET CLR 3.5.30729)');
curl_setopt($ch,CURLOPT_URL,$postback);
curl_setopt($ch,CURLOPT_POST,1);
curl_setopt($ch,CURLOPT_POSTFIELDS,array(
'action'=>'create_user',
'username'=>$user,
'password'=>$pass,
'email'=>$email,
'sign'=>$sign
));
curl_setopt($ch,CURLOPT_TIMEOUT,20);
curl_setopt($ch,CURLOPT_FOLLOWLOCATION,1);
curl_setopt($ch,CURLOPT_RETURNTRANSFER,1);
$pageOut=curl_exec($ch);
curl_close($ch);
Помогите олицезреть это на Perl.