my $notify = ...wait notify object...
while (1) {
  my $result = $notify->wait(60*1000); # timeout = 1 minute
  ...process $result...
  ...check for 3pm...
}