uploading files

I'm making a script for uploading text files via http to my webserver.
this is a part of the script

$filename = param('file');
$dir = "/www/dir";
$info_outfile = "text.txt";
(open INFO,">$dir/$info_outfile");
while ($bytes = read($filename,$data,1024)) {
$length_info += $bytes;
print INFO $data;
}
close(INFO);
chmod 0777, "$info_upload_dir/$info_outfile";

the problem is that the script upload(or make) a 0 byte file
please help me!!! I dont understand whats happening
thanx!