PerlでStatic変数を使いたい

perlでクラス変数みたいなStatic変数を使いたい場合にどうすればいいか。Global変数として定義すると、後で名前がぶつかったりするのが困るのでGlobalにしたくない。次のように定義すればいいらしい。

{
  my $static_var;
  sub function(){
    $static_var++;
  }
}

このようにすると$static_varはstaticに振る舞う。この定義をBEGIN{ }に置いておけばいいらしい。