if ($page->param('submit'))
      {
          @files = grep {defined CGI::param($_) or CGI::param($_) ne ''} CGI
      +::param();
          print @files;
          #Do your code here.....
      }