my $incident = DateTime->from_epoch( time() ); # your data here my $ok_down = DateTime::Event::ICal->recur( byday=>["su"], byhour=>[6, 7] ); unless ( $ok_down->contains( $incident ) { # notify }