Aprender perl facil a medio (7 / 8 paso)

Paso 7: Juntándolo

#! / usr/bin/perl
$operation = < STDIN >;
Si ($operation = ~ m/multiplicar /)
{
Imprimir "introduce un número: \n";
$a = < STDIN >;
Imprimir "Introduzca un número para multiplicar $a:\n";
$b = < STDIN >;
$c = $a * $b;
Imprimir "multiplyed de $a por $b = $c\n";
}
Si ($operation = ~ m/añadir /)
{
Imprimir "introduce un número: \n";
$a = < STDIN >;
Imprimir "Introduzca un número para añadir a $a:\n";
$b = < STDIN >;
$c = $a + $b;
Imprimir "$a a $b = $c\n";
}