Select Code to Download

sub start {
  my ($self) = @_;
  my $start = Start->new( app => $self );
  return $start->output;
}

package Start;

...
  };
  bless $self, $class;
}

sub app { 
  my $self = shift;
  return $self->{app};
}

sub output {
  my ($self) = @_;
...
  # do stuff
  return $output;
}