problema con script para subir un archivo

[darkasecas]

hola gente

pues mi problemas es que tengo un script en perl para subir archivos a un servidor, al utilizarlo si me crea el archivo en la carrpeta correcta, pero no tiene contenido, es un archivo de 0 bytes, no me marca ningun error ni nada

este es el codigo qe utilizo

Código:

open (OUTFILE, ">$path1/$fileName") || forma_mensaje("Couldn't copy file to server, make sure directory is Chmoded 777."); 
while (my $bytesread = read($file, my $buffer, 1024)) { 
	print OUTFILE $buffer;
	} 
close (OUTFILE);

y bueno pues hice una prueba con una variable dandole un valor antes de ejecuytar ese codigo, y cambiaba adentro del while, al imprimirla despues salio en valor que le habia definido asi que el problema es que no entra al while

bueno pues espero me puedan ayudar gracias

[monoswim]

Debe ser por el binmode, cuando el archivo es binario tenés que especificar (en algunos sistemas operativos) que ese archivo que abriste es binario...

Código:

open (OUTFILE, ">$path1/$fileName") || forma_mensaje("Couldn't copy file to server, make sure directory is Chmoded 777."); 
binmode OUTFILE;
while (my $bytesread = read($file, my $buffer, 1024)) { 
	print OUTFILE $buffer;
} 
close (OUTFILE);

Probá con eso, y decime

Saludos

[darkasecas]

pues nop :( , sigue sin funcionar

alguna otra idea?