función chop en perl

quita el último carácter de la línea que se introdujo vía teclado.

 regulamente es el símbolo de retorno de carro, al momento de teclear [enter].

ejercicio

#!/usr/bin/perl

print "Teclea un valor numerico entero y positivo ";
$var1 = ;
chop $ var1;
print "Teclea otro valor numerico entero y positivo ";
$var2 = ;
chop $ var2;
$var3=$ var1+$ var2;
print "El resultado de la suma de $ var1 y $ var2 es: $ var3 \n" ;