...
use TimeLock;

my $timelock = TimeLock->new('/tmp/foo_timelock');

if ( something_really_bad() ) {
    my $message = "Something Really Bad just happened...";
    if ( !$timelock->locked($message) ) {
        page_me($message);
        $timelock->set_lock($message,600);
    }
}