#!/usr/bin/perl

use LWP::UserAgent;

use HTTP::Request;#этот модуль нам необходим, чтобы создавать «запросы» вида ( метод=>"урл" );

$url="www.sobakoff.net/script.php";

$name="Sashiks";#Это наши данные. которые будут отправляться

$email="real_sshx@mail.ru";

$text="Это не флуд! ;)";

$opera=LWP::UserAgent->new();#Создаем новый объект - браузер;

$req=new HTTP::Request(POST=>"$url?your_name=$name&email=$email&text=$text");#создаем новый запрос

$opera->request($req);#Выполняем запрос, то есть отправку данные скрипту

print"Message added!\n';

После запуска этого скрипта в гесте должна появиться наша запись. Чтобы отправить больше сообщений можно просто добавить цикл, где счетчиком будет число необходимых тебе сообщений. Правда просто? Кстати, в Perl есть еше один модуль из семейства HTTP. Он создан специально, если тебе нужно часто работать с web-формами. Подключается он так: use HTTP::Request::Common, а запрос из предыдущего примера реализуется следующим образом:

$req=POST('www.sobakoff.net/script.php', [your_name=>'$name', email=>'$email', text=>'$text'] );

Здесь в квадратных скобках мы просто присвоили необходимым параметрам соответствующие значения.

гггг) а смир меня заманал..... еще раз он меня забанит или снизит мне репутацию...я его килл....
буду килл долго и нудно