Olá pessoal estou tentando aprender perl e ter uma calculadora simples estou tentando executar mas recebo erro galopante multi-linha. Pode alguém ponto este novato na direção certa.


# # #

print 'Bem-vindo à Calculadora';
print 'Você gostaria de entrar na calculadora? Por favor, escreva y ou n ';
$ run \u003d <stdin>;
chomp $ executado;
while ($ executar \u003d\u003d y)
(
(
print 'Adicionar um \u003d | Subtrair \u003d s | Multiplicar \u003d m | Dividir \u003d d | Exponent \u003d E | \u003d O Mod';
print 'Digite o número correspondente ao caluclation a ser feita:';
$ calc \u003d <stdin>;
chomp $ calc;
print "Por favor, introduza o primeiro valor: ';
$ A \u003d <stdin>;
chomp $ A;
print 'Digite o segundo valor:';
$ B \u003d <stdin>;
chomp $ B;

if ($ calc \u003d\u003d um)
(
answer \u003d $ $ $ A + B;
)
elsif ($ calc \u003d\u003d s)
(
answer \u003d $ A $ - $ B;
)
elsif ($ calc \u003d\u003d m)
(
answer \u003d $ $ A $ * B;
)
elsif ($ calc \u003d\u003d d)
(
answer \u003d $ $ A / $ B;
)
elsif ($ calc \u003d\u003d ae)
(
answer \u003d $ $ A $ B **;
)
elsif ($ calc \u003d\u003d o)
(
answer \u003d $ $ $ A% B;
)
print "A resposta é de US $ resposta".
)
print 'Você gostaria de realizar um outro cálculo? Por favor, escreva y ou n ';
$ run \u003d <stdin>;
chomp \u003d $ executar;
)


print 'A aplicação está agora encerrado. ";

# # #