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