ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

$\ = "\n";
my $url = 'http://www.liex.ru/';
my $ua = LWP::UserAgent->new ('agent' => 'Opera');
push @{$ua->requests_redirectable}, 'POST';
my $req = $ua->post ($url . 'userAction?action=registerUser',
  'Host' => 'www.liex.ru', 'Referrer' => $url, 'Content_Type' => 'form-data',
  'Content' => [
    'name' => 'Cewl K0d3r',
    'login' => 'coder',
    'email' => 'nick@yandex.ru',
    'password' => 'mypassword',
    'password2' => 'mypassword',
    'wmz' => 'Z-кошель',
    'defaultInterface' => 1,
    'term' => 'on'
  ]
);
print $req->content;