Upload d'un fichier

Bonjour
j'ai fais un formulaire dans lequel il y'a une zone de type "FILE" qui permet d'uploader des fichier, et j'ai aussi ecris le code qui fait l'upload; mon problème c'est que lorseque j'upload le fichier il est de "0ko" de taille. le même code je l'ai déjà utilisé sur d'autres serveurs sans soucis

le code pour le formulaire est
Code:

1 2 3 4 5 6 <form name=frm_file ENCTYPE="multipart/form-data" method=post action="index.cgi"> <table> <tr><td class=normal_text>Fichier</td><td><input type=file name=content size=60></td></tr> </table> <input type=submit value="Enregistrer le fichier"> </form>
et le fonction qui fait l'upload c'est
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 sub upload_file { my $file_name = shift; $file_name =~ /([^\/\\]+)$/; my $file = "$1"; my $server_file_name = $TMP_DIR.'/'.$file; open(OUT, "> $server_file_name"); binmode OUT; my $bytesread = 0; my $buffer; while (my $bytes=read($file_name,$buffer,1024)) { print OUT $buffer; } close OUT; return $server_file_name; }
j' ai un serveur linux Redhat 9.0, je sais pas si c'est qqch à parametrer au niveau du serveur mais j'ai bcp cherché sans rien trouver
Merci pour votre aide

[Edit]
Balises [ code ] et [ /code ] ajoutées par 2Eurocents.
Merci d'y penser la prochaine fois !!
[/Edit]