Ну я вот тут что-то написал, но данные не правильно передаются. Подскажите чего не так.
#!/usr/bin/perl
print "Content-type: text/html\\n\\n";
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Headers;
use CGI;
$q = new CGI("tema=tema&email=mail&name=name");
$form_data = $q->query_string;
$headers = new HTTP::Headers(
Accept => "*/*",
Referer => "
http://www.gasaw.com/cgi-bin/test2.cgi",
Content-Type => "application/x-www-forum-urlencoded"
);
$request = new HTTP::Request(
"POST",
"
http://www.gasaw.com/cgi-bin/rekviz2.cgi",
$headers
);
$request->content($form_data);
$agent = new LWP::UserAgent;
$agent->agent("Mozilla/4.5");
$response = $agent->request($request);
print $response->content;