<STDIN> nos permite leer desde la entrada estándar.
Cuando se usa en un contexto escalar, perl lee de la entrada estándar
hasta (e incluyendo) el siguiente retorno de carro.
Asi en:
$line = <STDIN>;
La variable $line contiene el retorno de carro leído. Es por eso
que se usa el operador chomp el cual elimina el retorno de carro final:
$line = <STDIN>; # "hola\n" chomp($line); # $line contiene ahora "hola"
Si la línea termina en varios retornos de carro, chomp sólo
elimina uno, si no hay no hace nada.