скрипт не работает

[WebSpy]

Помогите отладить скрипт плиз.
В последней строке ошибка EOF. Что это такое.

Привет.

Посмотрел я твой скрипт...
Кто за тебя будет закрывающиеся скобки ставить???

................................................
19 строка:

elsif($ENV{'REQUEST_METHOD'} eq 'POST')	
{sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});

................................................
23 строка:

foreach(@formfields){ ... ;

................................................
56 строка:

foreach(@AllData){ ... ;

................................................
И ты хочешь чтобы это работало???

[WebSpy]

Переисывал с книги. Я только начинаю.
Огромное спасибо.