my $state;
sub init_state { $state = shift }
sub foo {
    if ($state) {
        ...