Select Code to Download

foreach my $x ($q->param()) {
  # if a file upload: my $filename = $q->param($x);
...
$q->param('_filedata',encode_base64($q->param('_filedata')));
# stuff the data into an attachment by hand