need help with upload files.

[Anish Kumar K.]

I wrote a script to upload one file to one location. The HTML files reads a particular 
file using <input type=file> 
and in the form action I have called upload.pl file.

in the upload.pl file...
    $upload_dir = "/home/anish/upload";
    $filename = $q->param("filename");
    $email_address = $q->param("email_address");
    $filename =~ s/.*[\/\\](.*)/$1/;

    print $q->p("The File Name is:  $filename");

    $upload_filehandle = $q->upload("photo");

    open UPLOADFILE, ">$upload_dir/$filename";

     binmode UPLOADFILE;

     while (<$upload_filehandle>)
     {
      print UPLOADFILE;
     }
                       close UPLOADFILE;


The file handling is not working correctly..I am not sure what is wrong with this 
code...

Anish