use ModPerl::ApacheRegistry ('$x'); # oder sowas

our $x = 23;
sub handler {
 sub inner {
     print "inner before: $x";
     $x = $x + 42;
     print "inner: $x";
 }
}