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