Most people are still on Perl 5.8.x or earlier, and so do not have state available.

They do have statics through the horrible my $foo if 0; hack, but that is a bad way to do it.

You can also use my module Tie::Static, with the associated speed penalty that ties always have.