Hi,
I am using mason perl when i am using code to upload a file

#!/usr/bin/perl -w

 use CGI;

 my $upload_dir = "/tmp/jobs";

 my  $query = new CGI;

 my $filename = $query->param("photo");
 my $email_address = $query->param("email_address");
 $filename =~ s/.*[\/\\](.*)/$1/;
 my $upload_filehandle = $query->upload("photo");

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

 binmode UPLOADFILE;

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

 close UPLOADFILE;
[download]

-------------------------------------------

PROBLEM:
i use this code in cgi-bin filename.pl file it is working fine but when i pass all information through params from html file in the function which is wrriten as in .pm file the output file which is uploaded does not contain any data .

Please help me out give me code and reason why it is not working in .pm but working fine in cgi-bin filename.pl

20070110 Janitored by Corion: Added formatting, code tags, as per Writeup Formatting Tips