<%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);