Foro - Perl en Español

No tengo ni idea... pero podemos solventarlo si somos más prácticos.

El problema puede estar en los dos open(STDIN). Esos dos open() se hacen hacia STDIN porque luego viene un bucle while de lectura.

Bueno, pues es mejor usar otro gestor de archivos que no sea STDIN.

Cambia las líneas 33 y 64 para que usen dos nuevos gestores de archivo, que sean distintos de STDIN, y distintos, a su vez, entre sí. Por ejemplo:

Naturalmente, debes poner también los close() al final de los bucles. No son imprescindibles, claro, pero sería más decoroso. Haces lo mismo para la línea 64, pero con otro nombre. Por ejemplo, POST.