Привет ребята я пытаюсь научиться Perl и простой калькулятор Я пытаюсь запустить, но я получаю ошибку убежавшие из нескольких строк. Может ли кто-то момент этот новичок в правильном направлении.


# # #

Версия для печати 'Добро пожаловать в Калькулятор';
Версия для печати 'Вы хотели бы войти в калькулятор? Пожалуйста, введите Y или N ';
$ \u003d <stdin> перспективе;
chomp $ перспективе;
а ($ запустить \u003d\u003d Y)
(
(
Версия для печати 'Добавить \u003d A | Вычесть \u003d S | Умножить \u003d M | Разделить \u003d D | Экспонента \u003d E | Мода \u003d O';
Версия для печати 'Введите соответствующий номер в caluclation будет выполняться:';
известково $ \u003d <stdin>;
chomp $ известково;
Версия для печати 'Пожалуйста, введите первое значение:';
$ A \u003d <stdin>;
chomp $ A;
Версия для печати 'Введите второе значение:';
$ B \u003d <stdin>;
chomp $ B;

если ($ известково \u003d\u003d а)
(
$ ответ \u003d $ A + $ B;
)
elsif ($ известково \u003d\u003d S)
(
$ ответ \u003d $ A - $ B;
)
elsif ($ известково \u003d\u003d м)
(
$ ответ \u003d $ A * $ B;
)
elsif ($ известково \u003d\u003d д)
(
$ ответ \u003d $ A / $ B;
)
elsif ($ известково \u003d\u003d д)
(
$ ответ \u003d $ A ** $ B;
)
elsif ($ известково \u003d\u003d O)
(
$ ответ \u003d $ A% $ B;
)
Print "Ответ $ ответа".
)
Версия для печати 'Вы хотели бы совершить еще один расчет? Пожалуйста, введите Y или N ';
$ \u003d <stdin> перспективе;
chomp \u003d $ перспективе;
)


Версия для печати 'применение в настоящее время прекращена.';

# # #