#!/usr/bin/perl
# Calculadora By Ghost! (Niko^)
# Primer Programa 12 Diciembre
 
 
print q("Opciones: 
1. Sumar 
2. Retar
3. Dividir
4. Multiplicar
5. Salir");
$opcion=<stdin>;
 
if ($opcion == 1){
print "ingrese el primer numero: ";
      $var=<stdin>;
 
print "ingrese el segundo numero: ";
      $var2=<stdin>;
 
$resultado = $var + $var2;
 
print "el resultado es $resultado";
}
elsif ($opcion == 2){
print "ingrese el primer numero: ";
      $var=<stdin>;
 
print "ingrese el segundo numero: ";
      $var2=<stdin>;
 
$resultado = $var - $var2;
 
print "el resultado es $resultado";
 
}
elsif ($opcion == 3){
print "ingrese el primer numero: ";
      $var=<stdin>;
 
print "ingrese el segundo numero: ";
      $var2=<stdin>;
 
$resultado = $var / $var2;
 
print "el resultado es $resultado";
 
}
elsif ($opcion == 4){
print "ingrese el primer numero: ";
      $var=<stdin>;
 
print "ingrese el segundo numero: ";
      $var2=<stdin>;
 
$resultado = $var * $var2;
 
print "el resultado es $resultado";
}
else{
exit(1);
}