use MyApp;

my $myapp->new(
    cgi => CGI->new(),
    session => CGI::Session->new(),
    database => DBI->connect()
);

print $myapp->process_request();

##</code><code>##

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