sub mod_perl_wrapper {
   ##### Begining of script #####
   use strict;
   use warnings;

   local our $global = $_[0];   # Say some value from the request.

   sub foo {
      print("$global\n");
   } 

   foo();

   ##### End of script #####
}

mod_perl_wrapper(4);  # 1st request prints "4"
mod_perl_wrapper(5);  # 2nd request prints "5"