Select Code to Download

$data = $q->param('param');

--mkGAOmWzlLaPNjkDQ57CNA9mUc6uoe1JMSRI
Content-Disposition: form-data; name="mtdata"; filename="filename"
Content-Type: application/octet-stream
...

file name
--mkGAOmWzlLaPNjkDQ57CNA9mUc6uoe1JMSRI--

 my $data = $query->param('POSTDATA');

         $lightweight_fh  = $q->upload('field_name');

...
             print OUTFILE $buffer;
           }
         }