sub mod_perl {
    {
        my $static1 BEGIN;
        $static1= "Hi";
        sub sub1 {
            my $old= $static1;
            $static1= shift if @_;
            return $old;
        }
    }
    # ...
}