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

--------------------------------------------------
Clickea el numero de la accion que desees realizar:
1.-Sumar
2.-Restar
3.-Multiplicar
4.-Dividir
";
$accion =<STDIN>;
if ($accion == 1){
print "
         Sumando


Primer Numero a sumar:  ";
$num1 =<STDIN>;
chomp $num1;
print "Segundo Numero a Sumar:  ";
$num2 =<STDIN>;
chomp $num2;
$result = $num1 + $num2;
print "Resultado: $result ";}
elsif ($accion == 2){
print "
         Restando
Primer Numero a Restar:   ";
$num1 =<STDIN>;
chomp $num1;
print "Segundo Numero a Restar:   ";
$num2 = <STDIN>;
chomp $num2;
$result= $num1 - $num2;
print "Resultado:  $result;"}#cerrar string con "
elsif ($accion == 3){
print "
         Multiplicando

Primer Numero a multiplicar:   ";
$num1 =<STDIN>;
chomp $num1;
print "Segundo Numero a multiplicar:   ";
$num2 = <STDIN>;
chomp $num2;
$result= $num1 * $num2;
print "Resultado:  $result;"}
elsif ($accion == 4){
print "
         Dividiendo
Primer Numero a Dividir:   ";
$num1 =<STDIN>;
chomp $num1;
print "Segundo Numero a Dividir:   ";
$num2 = <STDIN>;
chomp $num2;
$result= $num1 / $num2;
print "Resultado:  $result;"}