BEGIN { use vars qw($FOO); $FOO = ... # some slow action here } if ($FOO) { }