my $critical;
sub on_timer {
    if (! $critical) {
        ...
    };
};