{
    my $static_var; BEGIN { $static_var = ... }

    sub f { ... do something with $static_var here ... }
}