Deer Monks
Thanks for your valuable advices as with your help i had solved this problem and it is working fine in Mason .I am tell you all the solution so if in future any one get it he should be refered on this code.
I am using Mason perl and Apache 1.3

<%init>
 my $params =$r->param;
 my $upload_dir = "Filename where you want to store file ";
 my $filename = $params->{'file'};
 my $email_add =$params->{'email'};
 my $file_contents;
 my $upload = $r->upload;
 my $upload_fh = $upload->fh;
 open (FH, ">$upload_dir/$email_add.$filename");
 binmode($upload_fh);
 while(<$upload_fh>) {
     $file_contents .= $_;
 }
 close($upload_fh);
print FH $file_contents;
close(FH);
</%init>
[download]

This work fine on mason madules.
Thanks monks for your help