sub window {
  while ($waiting) {
    last if hark($event_ref);
  }
  if ($event_ref->{'rock'} eq 'brick') {
    sleep;
  }
}
# Hark! What rock through yonder window breaks?
# It is a brick and Juliet is out cold