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