print start_multipart_form(),"Enter File :: ",filefield('filename','',50),br,,submit('submit','Upload'),endform; if(my $file= param('filename')) { my $tmpFile = tmpFileName($file); } open (WQ,">>outdata.txt"); while(<$file>) { print WQ; } close(WQ);