Es raro lo que quieres hacer...No probaste con un módulo de FTP del cpan?
El tema es que estás cargando todo el archivo en una variable, y el archivo pesa 20 megas !!!! Estás usando mucha pero mucha memoria, tal vez es eso que hace que en un momento dado no te permita usarla mas...me imagino que eso es pesadito !!!
Yo probaría algo así:
Código:
while (my $linea = <IDFICH>) {
print MANEJA "$linea";
}
Con eso vas imprimiendo cada línea individualmente sin cargar todo en memoria, sino que vas cargando una por una, a la medida que van apareciendo.
Te recomiendo mucho que leas este artículo:
http://perlenespanol.baboonsoftware....vo/000112.html
Habla justamente de optimizar el uso de la memoria en perl, porque fijate que si es una aplicación CGI puede tener varias corridas en paralelo, con lo cual cada una usa 20 megas de la memoria un puñado de usuarios te quedas sin servidor.
Espero que te sirva
Saludos