Select Code to Download

use MyApp;

...
);

print $myapp->process_request();

sub process_request {
  my $self = shift;
  $self->cgi->header . $self->do_something;
}