system ("cls");
print
"\t\tCALCULADORA\t\t

--------------------------------------------------
Teclea el numero de la accion que desees realizar:
0.-Salir
1.-Sumar
2.-Restar
3.-Multiplicar
4.-Dividir
";
$accion =<STDIN>;
       if    ($accion == 0){
       exit
       }
       if    ($accion == 1){
print "¿Cuantos Numeros Desea Sumar?\n";
$canum = <STDIN>;
chomp ($canum);
my $total = 0;
for ($x=1; $x<=$canum; $x++);
print "¿Que Numero?";
$num = <STDIN>;
chomp ($num);
$total += $num;
print "Resultado: ".$total."\n";

}
       elsif ($accion == 2){
print "¿Cuantos Numeros Desea Restar?\n";
$canum = <STDIN>;
chomp ($canum);
my $total = 0;
for ($x=1; $x<=$canum; $x++){
print "¿Que Numero?";
$num = <STDIN>;
chomp ($num);
}
$total -= $num;
print "Resultado: ".$total."\n";
}
       elsif ($accion == 3){
print "¿Cuantos Numeros Desea Multiplicar?\n";
$canum = <STDIN>;
chomp ($canum);
my $total = 0;
for ($x=1; $x<=$canum; $x++){
print "¿Que Numero?";
$num = <STDIN>;
chomp ($num);
}
$total *= $num;
print "Resultado: ".$total."\n";
}
       elsif ($accion == 4){
print "¿Cuantos Numeros Desea Dividir?\n";
$canum = <STDIN>;
chomp ($canum);
my $total = 0;
for ($x=1; $x<=$canum; $x++){
print "¿Que Numero?";
$num = <STDIN>;
chomp ($num);
}
$total /= $num;
print "Resultado: ".$total."\n";
}
       else {print "Tecle solo las acciones disponibles"
}
print "Pulse 0 para salir o teclee nuevamente el Numero de la accion que desee realizar:"
$accion = <STDIN>; #aca nose si colocar denuevo todo o si la primera $accion sigue vigente..
chomp ($accion);
if $accion = 0;{
exit}