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 "
\t\tSumar\t\t
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 "
\t\tRestar\t\t
Primer Numero a Restar:   ";
$num1 =<STDIN>;
chomp $num1;
print "Segundo Numero a Restar:   ";
$num2 = <STDIN>;
chomp $num2;
$result= $num1 - $num2;
print "Resultado:  $result;}