Select Code to Download

while ( my ($key,$name) = get_key_and_name() ) {
  my @data;
...
  $data_tmpl->param(NAME => $name, DATA => \@data);
  write_file("/location/$key.html", $data_tmpl->output);
}