calculadora en perl

[zickox]

hola... e hecho una calculadora en perl... esta es la version beta  es muy simple y le kiero agregar mas opciones pero lo hare kuando tenga mas tiempo bueno aka esta el kode

Código:

# autor: zickox
system ("cls");
system ("title calculadora version beta by zickox");
system ("color a");
print ("operacion ke deseas realizar:\n");
print ("ejemplo: sumar\n");
$operacion=<STDIN>;
chop($operacion);
if ($operacion eq "sumar")
{
system ("cls");
print ("escribe el primer digito\n");
$pri=<STDIN>;
chop($pri);
system ("cls");
print ("escribe el segundo digito\n");
$seg=<STDIN>;
chop($seg);

$result=$pri + $seg;
system ("cls");
print ("el resultado es: $result\n");
}
if ($operacion eq "restar")
{
system ("cls");
print ("escribe el primer digito\n");
$pri1=<STDIN>;
chop($pri1);
system ("cls");
print ("escribe el segundo digito\n");
$seg2=<STDIN>;
chop($seg2);

$result=$pri1 - $seg2;
system ("cls");
print ("el resultado es: $result\n");
}
if ($operacion eq "multiplicar")
{
system ("cls");
print ("escribe el primer digito\n");
$pri3=<STDIN>;
chop($pri3);
system ("cls");
print ("escribe el segundo digito\n");
$seg4=<STDIN>;
chop($seg4);

$result=$pri3 * $seg4;
system ("cls");
print ("el resultado es: $result\n");
}
if ($operacion eq "dividir")
{
system ("cls");
print ("escribe el primer digito\n");
$pri5=<STDIN>;
chop($pri5);
system ("cls");
print ("escribe el segundo digito\n");
$seg6=<STDIN>;
chop($seg6);

$result=$pri5 / $seg6;
system ("cls");
print ("el resultado es: $result\n");
}

salu2

[Hendrix]