#mod_perl-handler
package  Blah;

sub handler {
 ....house keeping code...
 goto MYCODE
}

sub your_sub { .... }

MYCODE:
 ...your code here....