Select Code to Download

sub my_html_template {
  my (%opt) = @_;
...
    }],
  });
}

sub story {
  my ($source) = @_;
...
    }
  }
}

my_html_template( code => sub { story(*DATA) });