#mod_perl_handler
sub handler {

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

}