Select Code to Download

$q = new CGI;
$template = HTML::Template->new(filename => "$displaypage",
...
  send_header();
  print $template->output;

  sub downloadfiles {
   @files = $q->param("field");
    ...
  }