#mod_perl_handler
sub handler {

  sub your_sub() {}..
  ...your script....

}

##</code><code>##

our $myvar;

##</code><code>##

my $myvar;

##</code><code>##

#mod_perl-handler
package  Blah;

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

sub your_sub { .... }

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